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1.  COMPUTER  PROGRAM  DESCRIPTION 


The  Large  Aircraft  Av  rodynamic  Prediction  Program  has  been 
coded  in  Fortran  Extended  Version  3.0  to  operate  on  the  CDC  6600 
computer  facility  at  W-PAFB.  This  program  is  also  operational 
on  the  General  Dynamics  CDC  6600  computer  (procedure  code  RlT) . 

The  main  program  controls  the  calling  of  three  primary  overlay 
programs  XINPT,  GEOM,  and  SURVEY.  In  turn,  XINPT  calls  two  secon¬ 
dary  overlay  programs  INPT  and  NINPT;  while  SURVEY  calls  four 
secondary  overlay  programs  VGEOM,  MCRIT,  AERO,  and  LSHL.  These 
programs  bring  the  desired  subroutines  into  the  core  and  direct 
the  calling  of  the  subroutines  to  make  the  necessary  computations. 
Figure  1  shows  the  overlay  structure  and  the  subroutines  called 
from  these  programs . 

Card  input  occurs  on  file  name  TAPES  and  data  output  occurs 
on  file  name  TAPE6. 

The  deck  structure  for  a  run  consists  of  a  job  card,  system 
control  cards,  end-of-record  card,  binary  object  decks,  end-of- 
record  card,  problem  data  deck,  end-of-file  card.  The  structure 
of  the  binary  object  decks  and  overlay  control  cards  are  listed  in 
Table  I.  The  problem  data  deck  is  described  in  the  Program 
Input  Section. 
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OVERLAY  (0,  0) 
MRIT 


OVERLAY  (1,  0) 
XINPT 


OVERLAY  (2,  0) 
GEOM 


OVERLAY  (3,  0) 
SURVEY 
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Table  1 

DECK  STRUCTURE  FOR  OVERLAYS 


OVERLAY  (OULY,  0,  0) 
PROGRAM  MR IT 

SUBROUTINE  LNTP 
FUNCTION  DLNT 
SUBROUTINE  TLNT 

OVERLAY  (I,  0) 

PROGRAM  XINPT 

SUBROUTINE  SETUP 

OVERLAY  (1,  1) 

PROGRAM  INPT 

OVERLAY  (1,  2) 

PROGRAM  NINPT 

SUBROUTINE  CONV 

OVERLAY  (2,  0) 

PROGRAM  GEOM 

OVERLAY  (3,  0) 

PROGRAM  SURVEY 

SUBROUTINE  ADJUST 
BLOCK  DATA 

OVERLAY  (3,  1) 

PROGRAM  VGEOM 

OVERLAY  (3,  2) 

PROGRAM  MCRIT 

SUBROUTINE  CPZT 
SECT 
CPUOV 

OVERLAY  (3,  3) 

PROGRAM  AERO 

SUBROUTINE  CDDR 
CLWBT 
AER2 
TAIL 
AALO 
CLBRK 
CDLl 
AD  CL 
KG  IN 
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Table  1  (Cont'd) 


SUBROUTINE  CDL2 
AERA 
AFTCD 
TDRG 
EMIN 
FDRG 
CFEQ 
FFACT 
IFACT 
WDRG 
CDWN 
CDWT 
CBRG 
BOKO 
CMOW 
WBAC 
ACCR 
ATMOS 
FLSQ 
MTXEQ 

OVERLAY  (3,  4) 

PROGRAM  LSHL 

SUBROUTINE  SSET 
DSET 
MSET 
EAERO 
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2 .  PROGRAM  INPUT 


Ttie  input  to  this  program  is  described  in  the  following 
section.  Three  data  types  are  specified  in  the  card  descriptions. 
Type  A  indicates  that  alphabetic  or  numeric  characters  should  be 
entered.  Type  I  indicates  integers  which  should  be  right- ad¬ 
justed  within  the  specified  columns  with  no  decimal  point.  Type 
F  indicates  a  real  number  and  may  be  tabulated  anywhere  within 
the  specified  columns  and  should  include  a  decimal  point.  The 
program  input  is  illustrated  by  the  sample  cases  in  the  Sample 
Problem  Section. 


Card  3  -  Title  -  E  er  any  alphanumeric  characters  to  identify 
each  problem.  Thi-  data  is  printed  out  at  the  top  of  each 
aerodynamic  survey  problem.  Columns  1-66, 

Card  2  KPRINT(I),  Printout  Option  Indicators  -  Setting  a  given 
KPRINT  indicator  to  1  causes  the  program  to  print  out  certain 
types  of  data.  Columns  1-27.  KPRINTt.ll)  through  (27)  are  used 
for  diagnostic  purposes  to  dump  data  generated  in  various  sub¬ 
routines  and  are  not  intended  to  be  used  for  normal  computer 
runs . 


KRFINT  and  Column  No. 


Print  Out 


1  Airfoil  ordinates  and  pressure  distribution 

2-10  Not  used 


11 

Dump 

Subroutine 

AER2 

12 

• 

GEOM 

13 

• 

AALO 

14 

• 

CDL2 

15 

BDRG 

16 

CLBRK 

17 

AERA 

18 

WBAC 

19 

CFEQ 

20 

CDWW 

21 

TAIL 

22 

CDL1 

23 

"DDR 

24 

ADJUST 

25 

CMOW 

26 

CPZT 

27 

Dump 

Subroutine 

SSET 

Card  3  -  Input  Control  Card  -  Write  ’’FORMAT"  or  "NAMELIST" 
beginning  in  Column  1  if  format  or  namelist  input  option  is 
desired. 

Cards  4,  5,  . 27  -  Configuration  Definition  Cards,  Format 
Input  Option  (For  NAMELIST  input  option  go  to  card  42) 

The  aircraft  geometry  is  represented  as  a  series  of  bodies 
for  the  fuselage,  canopy,  and  stores;  open-nosed  bodies  for  the 
nacelles;  and  a  series  of  airfoil  surfaces  for  the  wing,  tail 
surfaces,  pylon  and  ventral  fins.  For  cranked  or  complex  wing 
planforms,  the  wing  is  represented  as  a  series  of  surface  panels. 
Figures  2  through  7  illustrate  many  of  the  geometric  parameters 
which  are  used  to  define  an  aircraft  configuration.  Trt  rh? 


input  to  the  program,  those  parameters  that  are  marked  with  an 
asterisk  (*)  indicate  that  if  zero  or  blank  is  entered  the  pro¬ 
gram  will  calculate  that  parameter  using  the  available  geometric 
data;  otherwise  the  input  value  will  be  used. 


Card  4  (Required,  all  Type  I) 


Column 

Symbol 

Definition 

4-5 

NBODYS 

Total  number  of  body  types  used  to 
represent  the  configuration 

9-10 

NNACS 

Total  number  of  nacelle  types  used 
to  represent  the  configuration 

14-15 

NSURFS 

Total  number  of  airfoil  surfaces 
used  to  represent  the  configuration 

20 

NHT 

Enter  1  if  a  horizontal  tail  is 
present 

25 

NVT 

Enter  1  if  a  single  vertical  tail  is 
present,  2  for  a  twin  vertical  tail 

30 

ISWP 

Variable  sweep  indicator 

0  fixed  wing  geometry 

1  variable  sweep  wing 

34-35 

NPNLS 

Number  of  wing  panels  used  to  repre¬ 
sent  the  wing  surface  ( $  10) 

40 

IHLS 

Enter  1  or  2  if  geometry  for  the  high 
lift  system  is  to  be  input.  Enter  1 
for  single  high- lift  system,  er ter  2 
if  the  high- lift  system  is  defined  by 
two  segments  (see  Figure  6) 

45 

IREF 

Angle  of  attack  reference  indicator 

0  referenced  to  wing  root  chord 
plane 

1  referenced  to  fuselage  ce.  terline 


T 


Card  5 

(Required, 

all  Type  F) 

Column 

Symbol 

Definition 

1-10 

SREF 

Reference  area  (ft2) 

11-20 

*CMAC 

Wing  mean  aerodynamic  chord  (in.) 

21-30 

*XCG 

Fuselage  station  for  moment  reference 
point  (in.).  If  zero  is  input  the 
program  will  use  the  quarter-chord 
of  the  wing  MAC. 

31-40 

ZCG 

Height  of  moment  reference  point 
relative  to  wing  root  chord  plane 

41-50 

ROUGHK 

Surface  roughness  height  for  friction 
drag  (in.) 

51-60 

FMISC 

Miscellaneous  drag  factor  as  a  per¬ 
centage  of  total  friction  and  form 
arag 

Card  6 

(Required  if 

NBODYS  >  0,  all  Type  ]?> 

1-10 

BLEN(I) 

Body  length  (in.) 

11-20 

BWID(I) 

Body  width  (in.) 

21-30 

BHGT(I) 

Body  height  (in.) 

31-40 

*BAWET(I) 

Body  wetted  area  (ft2) 

41-50 

BQ(I) 

Interference  factor 

51-60 

BNO(I) 

Number  of  bodies  of  this  type 

Card  7 

(Required  if 

NBODYS  >  0,  all  Type  F) 

1-10 

*BAMX(I) 

Body  maximum  cross-sectional  area  (in2) 

1 1-20 

BABS(I) 

Body  base  area  (in2) 

21-30 

BLNS(I) 

Nose  length  (in.) 

31-40 

BLBT(I) 

Boattail  length  (in.) 

'  i  i.  * 
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Card  7 

(Continued) 

Column 

S'  :-ol 

Definition 

41-50 

BASE(I) 

2 

Base  drag  area  (in  ) 

51-60 

BFUS 

Aft  fuselage  upsweep  angle  (deg.) 

61-66 

AB 

Ratio  of  aft  fuselage  width  to  height 
in  the  upswept  region 

Repeat 

cards  6  and  7 

for  1-1  to  NBODYS.  Note  the  BFUS  and  AB  are 

only  entered  for  I“1 

which  corresponds  to  the  fuselage  input. 

Card  8 

(Required  if 

NNACS  >  0,  all  Type  F) 

1-10 

ELEN(I) 

Nacelle  length  (in.) 

11-20 

EWID(I) 

Nacelle  width  (in.) 

21-30 

EHGT( I) 

Nacelle  height  (in.) 

31-40 

*EAWET(I) 

2 

Total  wetted  area  (ft  ) 

41-50 

EQF(I) 

Interference  factor 

51-60 

EN0(1) 

Number  of  nacelles  of  this  type 

Card  9 

(Required  if 

NNACS  >  0,  all  Type  F) 

1-10 

*EAMX(I) 

Nacelle  maximum  cross-sectional  area 
(in2) 

11-20 

EIN(I) 

2 

Nacelle  inlet  area  (in  ) 

21-30 

EXIT(I) 

2 

Nacelle  exit  area  (in  ) 

31-40 

ELNS(I) 

Nose  length  (in.) 

41-50 

ELBT(I) 

Boattail  length  (in.) 

Repeat  cards  8  and  9  for  I“1  to  NNACS. 


Card  10  (Required  only  if  NPNLS-1,  otherwise  go  to  card  13, 


all  Type  F) 

Column 

Symbol 

Definition 

1-10 

AR 

1$Aspect  ratio 

11-20 

TAPR 

Taper  ratio 

21-30 

3WPLE 

Leading-edge  sweep  (deg.) 

31-40 

SPLAN 

2 

Wing  planform  area  (£*•  ) 

41-50 

TWIST 

Wing  twist  (deg.)  negative  for  washout 

51-60 

WINC 

Wing  incidence  (deg.)  relative  to 
fuselage  centerline 

Card  li 

(NPNLS-1,  all  Type  ] 

F  except  as  noted) 

1-10 

TW  (Type  A) 

Type  wing  section  (begin  in  Col.  1) 
64-210  (example  6-series) 

00XX-64  (example  4-digit) 

SUPERCRIT  (example  supercritical) 
BICONVEX  (example  biconvex) 

11-20 

CAM(l) 

Wing  camber  design  Cl  (decimal  value) 

21-30 

TOC(l) 

Wing  thickness  (decimal  value) 

31-40 

XLEW 

X-position  of  point  on  wing  leading 
edge  (in.) 

41-50 

YWW 

Y-position  of  point  on  wing  leading 
edge  (in.) 

51-60 

YB 

Y-distance  of  intersection  of  wing 
with  fuselage  (in.) 

Card  12 

(NPNLS-1,  all  Type 

F) 

1-10 

SWMT 

Maximum  thickness  sweep  (deg.) 

11-20 

*CBAR(1) 

Exposed  wing  mean  aerodynamic  chord 

(in.) 
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Card  12  (Continued) 


Column 

Symbol 

Definition 

21-30 

*AWET ( 1 ) 

Wetted  area  (ft^) 

31-40 

CONCL 

Wing  conical  camber  design  Cl 

Skip  to 

card  17  after 

card  12. 

Card  13 

(NPNLS  >  1, 

all  Type  F) 

1-10 

SPLAN 

2 

Planform  area  (ft  ).  For  fixed 

configurations  if  zero  is  input  the 
program  will  calculate  the  theoretical 
planform  area  by  extending  the  wing 
panel  geometry  that  is  input  to  the 
fuselage  centerline.  For  variable 
sweep  configurations  the  planform  area 
of  the  movable  panel  extended  to  the 
centerline  must  be  input.  For  wings 
with  a  highly  swept  inboard  strake, 
the  value  of  the  theoretical  planform 
area  of  the  wing,  ignoring  the  strake, 
should  be  input. 


11-20 

TAPR 

Taper  ratio  of  wing  planform  (required 
input  for  variable  sweep) 

21-30 

SWPLE 

Leading-edge  sweep  (deg.)  of  wing 
planform.  (Required  iuput  for  varia¬ 
ble  sweep) 

Card  14 

(NPNLS  >  1,  all 

Type  F  except  as  noted) 

1-10 

TW  (Type  A) 

Type  wing  section 

11-20 

TWIST 

Wing  twist  (deg.)  negative  for  washout 

21-30 

WINC 

Wing  incidence  (deg.) 

31-40 

SWMT 

Average  maximum  thickness  sweep  for 
the  entire  wing  planform  (deg.) 

41-50 

CONCL 

Wing  conical  camber  design  Cl 

11 


Card  15 

(NPNLS  >  1,  all 

lype  F) 

Column 

Symbol 

Definition 

1-10 

ca::(i) 

Panel  camber  design  C^ 

11-20 

TOC(I) 

Panel  thickness  ratio 

21-30 

XLE(I) 

Inboard  X-position  of  panel  leading 
edge  (in.) 

31-40 

W(I) 

Inboard  Y-position  of  panel  leading 
edge  (in.) 

41-50 

CRW(I) 

Inboard  chord  length  of  panel  (in.) 

51-60 

*CBAR(I) 

Panel  mean  aerodynamic  chord  length 
(in.; 

61-66 

*AWET(I) 

2 

Panel  wetted  area  (ft  ) 

Repeat 

card  15  for  1-1  to  NPNLS 

Card  16 

(NPNLS  >  1,  all  Type  F) 

1-10 

XLE ( NPNLS+1 ) 

Outboard  X-position  of  last  panel's 
leading  edge  (in.) 

11-20 

YW(NPNLS^l) 

Outboard  Y-position  of  last  panel's 
leading  edge  (in.) 

21-30 

CRW( NPNLS+1) 

Outboard  chord  length  of  panel  (in.) 

Card  17 

(TW  -  "SUPERCRir1,  all  Type  F) 

h-» 

1 

h-* 

O 

XMU 

x/c  position  of  maximum  thickne***  on 
upper  surface 

11-20 

ZMU 

upper  surface  thickness  (Zu/c) 

21-30 

XML 

x/c  position  of  maximum  thickness  on 
lower  surface 

31-40 

ZML 

Lower  surface  thickness  (must  be 
input  as  a  negative  value) 
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Card  17 

(Continued) 

Column 

Symbol 

Definition 

41-50 

ZPTE 

Trailing  edge  slope  (deg.) 

51-60 

ZTHICK 

Thickness  at  trailing  edge 

Card  18 

(ISWP-1,  all  Type  F) 

1-10 

XPIVOT 

X- location  of  wing  pivot  (in.) 

11-20 

YPIVOT 

Y- location  of  wing  pivot  (in.) 

21-30 

XAPEX 

X- location  of  centerline  apex  of 
movable  panel  (in.) 

31-40 

AFTSW 

Maximum  a ft  sweep  (deg.) 

41-50 

*AFTCB 

Mean  aerodynamic  chord  of  movable 
panel  in  aft  sweep  position  (in.) 

51-60 

*AFTOC 

Thickness  ratio  of  movable  panel  in 
aft  sweep  position 

61-66 

*AFTAW 

Wetted  area  of  movable  panel  in  aft 
sweep  position 

Card  19 

(NSURFS  ^  2,  all  Type  F  except  as  noted)  Enter  horizontal 
tail  geometry  first,  then  vertical  tail  followed  by  any 
additional  airfoil  surfaces. 

1-10 

TS(I)  (Type  A) 

lype  airfoil  surface 

11-20 

SCAM(I) 

Surface  camber  design  Cl 

21-30 

ST0C(I) 

Thickness  ratio 

31-40 

SMTSW(I) 

Maximum  thickness  sweep  (deg.) 

41-50 

SHF(I) 

Hinge  factor  or  interference  factor 

Card  20 

(NSURFS  £  2,  all 

Type  F) 

i-lG 

SWL(I) 

Surface  leading-edge  sweep  (deg.) 

11-20 

SWT(I) 

Trailing -edge  sweep  (deg.) 

13 


Card  20 

(Continued) 

Column 

Symbol 

Definition 

21-30 

STAPR(l) 

Taper  ratio 

31-40 

SCR(I) 

Exposed  root  chord  (in.) 

41-50 

*SBAR( I) 

Exposed  mean  aerodynamic  chord  (in.) 

51-60 

*SAWET ( I) 

2 

Wetted  area  (ft  ) 

Card  21 

(NSURFS  £  2,  NHT-1, 

all  Type  F) 

1-10 

HTLE 

X- location  of  horizontal  tail  exposed 
root  chord  (in.) 

11-20 

HTY 

Y- location  of  exposed  root  chord  (in.' 

21-30 

HTZ 

Z-location  relative  to  wing  chord 
plane  of  horizontal  tail  (in.) 

31-40 

HTINC 

Incidence  of  horizontal  tail  (deg.) 

Repeat 

cards  19  and  20  for  1*2  to  NSURFS. 

Card  22 

(NPNLS  £  3,  all  Type  F)  Since  the  aerodynamic  center 
calculation  is  restricted  to  one  or  two  panel  wings, 
an  equivalent  two-panel  wing  must  be  defined  for 
moment  calculation  whenever  3  or  more  panels  are  used 
to  define  the  main  wing. 

1-10 

CIS ( 1 ) 

X- location  of  leading  edge  at  inboard 
span  station  of  Inboard  panel  (in.) 

11-20 

YC(1) 

Y- location  of  leading  edge  at  inboard 
span  station  of  inboard  panel  (in.) 

21-30 

CCR(l) 

Chord  length  of  inboard  panel  at  in¬ 
board  span  station  (in.) 

31-40 

CLE(2) 

X- location  of  leading  edge  at  inboard 
span  station  of  outboard  panel  (in.) 

41-50 

YC(2) 

Y- location  of  leading  edge  at  inboard 
span  station  of  outboard  panel  (in.) 

51-50 

CCR(2) 

Chord  length  of  outboard  panel  at  in- 

board  span  station  (in.) 
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Card  23  (HPNLS  ±  3,  all  Type  F) 


Column 

Symbol 

Definition 

1-10 

CLE(3) 

X-location  of  leading  edge  at  outboard 
span  station  of  outboard  panel  (in.) 

11-20 

YC(3) 

Y- location  of  leading  edge  at  outboard 
span  station  of  outboard  panel  (in.) 

21-30 

CCR(3) 

Chord  length  of  outboard  panel  at  out¬ 
board  span  station  (in.) 

Card  24 

(Required  if  IHLS  > 

0,  otherwise  go  to  card  30) 

1-20 

FLAP  (Type  A) 

Type  flap  (begin  in  Col.  1) 

PLAIN  FLAP 

S. S.  FLAP  (single  slotted) 

D.S.  FLAP  (double  slotted) 

T. S.  FLAP  (triple  slotted) 

INPUT  (user  defined) 

21-40 

SLAT  (Type  A) 

Type  slat  (begin  in  Col.  21) 

L.E.  FLAP 

KRUGER  SLAT 

SLAT  (slotted  type) 

INPUT 

41-45 

NF  (Type  I) 

If  flap  type  was  "INPUT1  indicate 
number  of  flap  sectional  data  points 
to  be  entered,  NF  $5. 

46-50 

NS  (Type  I) 

If  slat  type  was  "INPUT*  indicate 
number  of  slat  sectional  data  points 
to  be  entered,  NS  i  5. 

Card  25 

(IHLS  >  0,  all  Type 

F) 

1-10 

BF1I 

Inboard  span  station  of  first  flap 
segment 

11-20 

BF10 

Outboard  span  station  of  first  flap 
segment 

21-30 

CF1(1) 

Flap  chord  to  wing  chord  ratio  of 
first  flap  segment 
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Card  25 

(Continued) 

Column 

Symbol 

Definition 

31-40 

BS1I 

Inboard  span  station  of  first  slat 
segment 

41-50 

BSiO 

Outboard  span  station  of  first  slat 
segment 

51-60 

CS1 

Slat  chord  to  wing  chord  ratio  of 
first  slat  segment 

Card  26 

(IHLS-2,  all 

Type  F) 

1-10 

BF2I 

Inboard  span  station  of  second  flap 
segment 

11-20 

BF20 

Outboard  span  station  of  second  flap 
segment 

21-30 

CF2 ( 1 ) 

Flap  chord  ratio  of  second  flap 
segment 

31-40 

BS2I 

Inboard  span  station  of  second  slat 
segment 

41-50 

BS20 

Outboard  span  station  of  second  slat 
segment 

51-60 

CS2 

Slat  chord  ratio 

Card  27 

(FLAP  -  "D.S."  or  "T.S.”,  all  Type  F)  For  double -slot ted 
flaps  (or  triple-slotted)  the  additional  flap  chord  ratios 
are  then  read  in. 

1-10 

CF1(2) 

Second  flap  chord  of  first  flap 
segment  for  double-  or  triple- 
slotted  flap 

11-20 

CFl(3) 

Third  flap  chord  of  first  flap 
segment  for  triple-slotted  flap 

21-30 

CF2(2) 

Second  flap  chord  of  second  flap 
segment  for  double-  or  triple- 
slotted  flap 

31-40 

CF2(3) 

Third  flap  chord  of  second  flap 
segment  for  triple-slotted  flap 

16 

Card  28  (Required  if  "INPUT"  was  used  for  flap  type  on  card  29, 
all  Type  F) 

Flap  Section  Data 


Column 

Symbol 

Definition 

1-10 

DF(I) 

Flap  deflection  (deg.) 

11-20 

CFOC(I) 

Wing  chord  to  wing  chord  ratio  in 
extended  position 

21-30 

DCLOF(I) 

Change  in  lift  at  zero  angle  of 
attack  due  to  flap  deflection 

31-40 

DCLMF(I) 

Change  in  maximum  lift  due  to  flap 
deflection 

41-50 

DCDF(I) 

Change  in  profile  drag  due  to  flap 
def lec tion 

51-60 

DCMDF 

Change  in  moment  at  zero  angle  of 
attack  due  to  flap  deflection 

Repeat  card  28  for  I-l 

rt 

O 

3 

• 

Card  29 

(Required  if  " 
all  Type  F) 

INPUT"  was  used  for  slat  type  on  card  29 

1-10 

DS(I) 

Slat  deflection  (deg.) 

11-20 

CSOC(I) 

Wing  chord  to  wing  chord  ratio  in 
extended  position 

21  30 

DC  LOS  ( I) 

Change  in  lift  at  zero  angle  of 
attack  due  to  slat  deflection 

31-40 

DCLMS(I) 

Change  in  maximum  lift  due  to 
slat  deflection 

41-50 

DCDS(I) 

Change  in  profile  drag  due  to  slat 
deflection 

51-60 

DCMDS(I) 

Change  in  moment  at  zero  angle  of 
attack  due  to  slnt  deflection 

Repeat  card  29  for  1-1  to  NS. 
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Cards  30 r 

31,  32,  and  33  -  Problem 

Control  Cards 

Card  30 

(Required,  ail  Type  I) 

Column 

Symbol 

Definition 

4-5 

NSUR.V 

Number  of  high  speed  lift,  drag, 
moment  surveys  to  be  run  (NSURV  £  20) 

10 

NHLSV 

Number  of  low  speed,  high  lift  survey 
conditions  to  be  run  (NHLSV  4  5) 

14-15 

NCLAS 

Number  of  evenly  spaced  CL  values  in 
the  high  speed  survey 

21 

IT(1) 

Transition  location  Indicator,  1st 
survey 

22 

IT(2) 

Transition  location  indicator,  2nd 

• 

• 

• 

• 

survey 

• 

• 

• 

40 

* 

IT(20) 

• 

Transition  location  indicator,  20th 
survey 

For  the  ith  survey  condition,  set  IT-0  or  blank  if  the 
flow  is  to  be  fully  turbulent  on  all  aircraft  components, 
otherwise,  set  IT  equal  to  the  transition  pattern  number 
defined  by  the  card  32  input. 


41 

iraH(i) 

Trim 

indica  tor ,  Is  t 

survey 

42 

ITRH(2) 

• 

Trim 

indicator,  2nd 

survey 

60 

• 

ITRM(20) 

Trim 

♦ 

indicator,  20th  survey 

For  the  ith  survey  condition,  set  ITRJH)  or  blank  if 
the  horizontal  tail  is  fixed,  set  ITRM"1  if  the  hori¬ 
zontal  tail  will  vary  to  trim  out  the  moment. 


Card  31  (NSURV  >0,  all  type  F) 

Column  Symbol  Definition 

1-10  FMSURV(I)  Mach  number  for  the  survey  condition 

11-20  ALT(I)  Altitude  for  the  survey  condition. 

Reynolds  number  can  be  input  here 
instead  of  altitude  by  inputing  a 
negative  value  of  RN/ft  multiplied 
by  106 


21-30 

DHSV(I) 

Horizontal  tail  setting 

(If  ITRM(I)=1,  the  program  will 

calculate  the  tail  setting) 

31-40 

SWPV(I) 

Leading-edge  sweep  angle  (deg.) 
(Required  input  only  for  variable- 
sweep  configurations) 

41-50 

CLLO(I) 

Low  Cl  value  for  the  survey  condition 

51-60 

CLHI(I) 

High  Cl  value  for  the  survey  condition 

Repeat 

card  31  for  each 

.  survey  condition,  1*1,  NSURV. 

Card  32 

(IT#),  6F10.0 

Forma  t) 

Each  survey  has  a  transition  indicator  assigned  to  it. 

If  ityO  for  any  survey,  a  boundary- layer  transition 
pattern  must  be  defined  for  each  component  of  the  air¬ 
craft.  Up  to  five  different  transition  patterns  can 
be  used  in  the  surveys.  Each  transition  pattern  is 
numbered  sequentially  by  the  order  it  is  input  begin¬ 
ning  with  J*1  for  the  first  transition  pattern. 

Transition  location  on  a  component  is  indicated  by 
inputing  the  fraction  of  the  component  length  where 
transition  occurs. 

TRB(J,K1)  Transition  location  on  body  Kl 

(K1  -  1 ,  NBODYS) 

TRN(J,K2)  Transition  location  on  nacelle  K2 

(K2  -  1,  NNACS) 
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Card  32 

(Continued) 

Column 

Symbol 

Definition 

TRU(J,K3) 

Transition  location  on  upper  surface 
of  panel  K3  (K3  -  1,  NPNLS) 

TRL(J,K3) 

Transition  location  on  lower  surface 
of  panel  K3 

TRS(J,K4) 

Transition  location  on  upper  and 
lower  surface  of  airfoil  surface  K4 
(K4  -  2,  NSURFS) 

For  each  transition  pattern  J,  first  input  the  body  transition 
location  followed  in  turn  by  all  the  nacelle,  wing  panel,  and 
airfoil  surface  transition  locations.  Repeat  Card  32  input  for 
each  transition  pattern  J*l,  to  w^ere  ^MAX  “  maximum  value 

of  IT(I-1,  20). 

Card  33 

(NHLSV  >0,  all  Type  F) 

1-10 

DFI(1,I) 

Flap  deflection  (deg.)  of  first  flap 
element 

11-20 

CPF(I) 

Wing  chord  with  flap  extended  to 
wing  chord  with  flap  retracted  ratio 

21-30 

-61(1) 

Slat  deflection  (deg.) 

31-40 

CPS  (I) 

Wing  chord  with  slat  extended  to 
clean  wing  chord  ratio 

41-50 

DELCD(I) 

Landing  gear  drag 

51-60 

H(  I) 

Height  of  wing  c/4  above  ground  (ft. 

"PLAIN", 

"S.S.",  or  "INPUT' 

trailing- edge- flap  types  are  single- 

element  flaps.  If  FLAP  ■  "D.S."  or  "T.S.",  the  deflection  of 
each  flap  element  must  be  input  beginning  with  DFI(i,I)  in 
Columns  1-10,  DFI(2,I)  in  Columns  11- 2C  and  for  "T.S."  flaps 
DFI(3,I)  in  Columns  21-30.  The  data  for  CPF(I),  CPS(I),  etc. 
are  then  shifted  to  the  right  on  the  cs id. 

Repeat  card  33  for  1*1,  to  NIILSV. 
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Card  34  -  Format  Input  Control  Card  -  Write  "ADJUST"  beginning  in 
Column  1  to  indicate  if  adjustment  factors  are  to  be  applied  to 
some  of  the  aerodynamic  parameters  predicted  by  the  program.  If 
no  adjustment  factors  are  to  be  read  in,  write  "END  JF  INPUT*' 
beginning  in  Column  1  to  indicate  that  all  Configuration  Definition 
and  Problem  Control  Cards  have  been  read  in  and  go  to  card  41. 

Cards  35  through  39  -  Adjustment  Option  Cards  -  The  adjustment 
option  allows  certain  predicted  items  in  the  computer  procedure 
to  be  adjusted  to  match  a  desired  value.  Thus,  the  predictions 
can  be  adjusted  to  match  wind  tunnel  data,  for  instance,  so  that 
perturbations  in  geometry  for  trade  studies  can  be  predicted  from 
a  firm  baseline.  An  aerodynamic  parameter  of  interest  (Apgjrjj) 
can  be  adjusted  to  match  an  experimental  value  (Agxp)  by  the  equation 

AgXP  “  (Ap££D>  *  YM  +  YA 

where  YM  and .YA  are  input  correlation  multiplier  and  adder  that  are 
a  function  of  Mach  number  or  lift  coefficient. 

Card  35  (Type  I)  Set  a  given  IVAL  indicator  equal  to  a  non-zero 
value  to  identify  if  as  being  an  aerodynamic  parameter 
to  be  adjusted.  Begin  with  IVAL=1  for  the  first  para¬ 
meter  to  be  identified,  IVAL*2  for  the  second  parameter,  e:tc. 


Column 

Symbol 

Definition 

1 

IVAL(l) 

Adjust  Cj^  as  a  function  of  Mach  number 

2 

IVAL(2) 

Adjust  as  a  function  of  Mach 

number 

J 

IVAL(3) 

Adjust  OfjjQ  as  a  function  of  Mach 
number 

4 

IVAL(4) 

Adjust  as  a  function  of  lift 

coefficient 

24-25 

NXVAR 

Number  of  Mach  values  in  the  table  of 
Mach  function  adjust  factors  ( ^ 15) 

29-30 

NADJ 

Number  of  parameters  to  be  adjusted 
as  a  function  of  Mach  number 

34-35 

NXCL 

Number  of  Cl  values  in  the  table  of 
lift  function  adjust  factors  ( £  15) 

39-40 

NADJ  2 

Set  equal  to  1  if  M^r  is  to  be 
adjusted 
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Card  36  (NXVAR  ^  0,  all  Type  F) 


Column 

Symbol 

Definition 

1-10 

X(l) 

Mach  numbers  for  the  table  of  Mach 

11-20 

X(2) 

function  adjust  factors 

21-30 

X(3) 

31-40 

X<4) 

41-50 

X(5) 

51-60 

X(6) 

Repeat  card  36  until  NXVAR  values  of  X  are  read  in. 
Card  37  (NXVAR  >0,  all  Type  F) 


1-10 

YM(J-1, 1*1) 

Multiplier  factor 

11-20 

YA(J*1, 1*1) 

Adder  factor 

21-30 

YM(J-2,I-1) 

31-40 

YA( J*2, 1*1) 

41-50 

YM(J-3, 1-1) 

51-60 

YA(J*3,I*1) 

Repeat  card  37  until  NXVAR  values  are  read  in  (J-NXVAR)  for  each 
aerodynamic  parameter  l:c  be  adjusted  (1*1  to  NADJ) . 

Card  38  (NXCL  >  0,  all  Type  F) 


1-U 

XCL(l) 

Cl  values  for  the  table  of  lift 

11-20 

XCL(2) 

function  adjust  factors 

21-30 

XCL(3) 

31-40 

XCL(4) 

41-50 

XCL(5) 

51-60 

XCL(6) 

lepeat 

card  38  until 

NXCL  values  of  XCL  are  read  in. 
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Card  39  (NXCL  >  0,  all  type  F) 
Column  Symbol 


Definition 


1-10  YM(J-1, I-NXVAR+1)  Multiplier  factor 

11-20  YA(J-l,i»NXVAR+l)  Adder  factor 

21-30  YM(  J-2 , I-NXVAR+i) 

31-40  YA( J-2 , I-NXVAR+1 ) 

41-50  YM(J»3, I-NXVAR+1) 

51-60  YA(J-3, I-NXVAR+1) 

Repeat  card  39  until  NXCL  values  are  read  in  (J-NXCL) . 

Card  40  -  Format  Input  Control  Card  -  Write  "END  OF  INPUT"  begin- 
ning  in  Column  1  to  indicate  tliat  all  Configuration  Definition, 
Problem  Control  and  Adjust  Cards  have  been  read  in. 

Card  41  -  Repeat  Problem  Control  Card  -  Write  "END"  to  terminate 
a  problem.  This  clears  the  input  common  blocks  and  reads  card  1 
as  the  next  card.  Write  "SAVE"  to  repeat  a  problem  with  only 
small  changes  to  the  geometry  or  conditions  to  be  run.  Additional 
values  will  be  read  in  on  cards  42  through  50  which  will  update 
the  previous  problem;  values  not  read  in  will  remain  unchanged. 

Card  42  -  New  Title  -  Enter  any  alphanumeric  characters  to 
identify  each  problem.  Columns  1-66. 

Card  43  (Required,  all  type  I) 


1 

L(l) 

HODYS 

Namelist 

data 

to 

be 

read 

in 

2 

L<?? 

NACEL 

Namelist 

data 

to 

be 

read 

in 

3 

l(  r 

WING 

Namelist 

data 

to 

be 

read 

in 

4 

U 

SURFS 

Namelist 

data 

to 

be 

read 

in 

5 

L<5) 

SURV 

Namelist 

data 

to 

be 

read 

in 

6 

L(6) 

STOL 

Namelist 

data 

to 

be 

read 

in 

7 

L(7) 

ADJUST  Namelist  data 

to  be  read 

i  in 

Set  L(l),  L(2) , 
set  of  Namelist 

.  . .  L(7)  equal  to  1  if 
data  is  to  be  read  in. 

that  particular 
Only  the  values 

that  are  read  in  will  change  the  values  in  storage  from 
the  previous  problem. 
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Use  of  NAMELIST  in  Input  Data 

Input  data  must  be  in  a  special  form  in  order  to  read 
using  a  NAMELIST  list.  The  first  character  (column  1)  in  each 
card  to  be  read  must  be  blank.  The  second  character  in  the 
first  card  of  a  group  of  data  cards  must  be  an  $  (dollar  sign), 
immediately  followed  by  the  NAMELIST  name.  The  NAMELIST  name 
must  be  followed  by  two  blanks  and  must  not  contain  any  embed¬ 
ded  blanks.  This  name  is  followed  by  data  items  separated  by 
commas.  (A  comma  after  the  last  item  is  optional.)  The  end 
of  a  data  group  is  signaled  by  $.  The  form  of  the  data  items 
in  an  input  card  may  be 

(1)  Variable  name  ”  cons  tan  : 

The  variable  name  may  be  a  subscripted  array  name 
or  a  single  variable  name.  The  constant  may  be 
integer,  real,  literal,  complex,  or  logical. 

(2)  Array  name  ■  set  of  constants  (separated  by  commas) 

The  array  name  is  not  subscripted.  The  set  of 
constants  consist  of  constants  of  the  type  integer, 
real,  literal,  complex,  or  logical.  The  number  of 
constants  must  be  less  than  or  equal  to  the  number 
of  elements  in  the  array.  Successive  occurrences 
of  the  same  constant  can  be  represented  in  the  form 
K  *  constant. 

The  variable  names  and  array  names  specified  in  the  input  data 
set  must  appear  in  the  NAMELIST  list,  but  the  order  is  not 
significant. 

Each  data  card  must  begin  with  a  complete  variable  or  array 
name  or  constant.  Embedded  blanks  are  not  permitted  in  names  or 
constants.  Trailing  blanks  after  integers  or  exponents  are 
treated  as  zeros. 

NOTE:  All  data  items  on  a  card  are  entered  in  Columns  9-6o. 

Card  44  -  BODYS  NAMELIST  -  N. me list  input  variables 

NBODYS ,  NNACS ,  NSIJRFS ,  NHT,  NVT,  ISWP,  NPNLS,  SREF,  CMAC, 
IREF,  ROUGHK,  XCG,  ZCG,  CONCL,  BLEN(I) ,  BWID(I),  BHGT(I) , 
BAWET(I) ,  BQ(I) ,  BNO(I),  BAMX(I),  BABS(I),  BLNS(I),  BLBT(I) , 
BASE(I) ,  BFUS ,  AB,  FMISC 


Card  45  -  NACEL  NAMELIST 


NNACS,  SREF,  ELEN(I) ,  EWID(I),  EHGT(I),  EAWET(I) ,  EQF(I) , 
ENO(I),  EAMX(I),  EIN(I),  EXIT(I),  ELNS(I),  ELBT(I) 

Card  46  -  WING  NAMELIST  ** 

NSURFS,  ISWP,  NPNLS,  AR,  TAPR,  SWPLE,  SPLAN,  TWIST,  WING, 

TW,  CAM(I) ,  TOC(I) ,  XLE(I),  YW(I),  CRW(I),  CBAR(I),  AWET(I), 
SWMT,  XPIVDT,  YPIVOT,  XAPEX,  AFTSW,  AFTCB,  AFTOC,  AFTAW, 

SREF,  CMAC,  CLE(I) ,  YC(I),  CCR(I),  XLEW,  YWW,  YB,  XCG, 

CONCL 

Card  47  -  SURFS  NAMELIST  ** 

NSURFS,  NHT,  NVT,  SREF,  SBAR(I),  TS(I),  SCAM(I),  STOC(I), 
SAWET(I) »  SMTSW(I),  SHF(I),  SWL(I) ,  SWT(I),  STAPR(I),  SCR(I), 
HTLE,  HTY,  HTZ,  HTINC 

Card  46  -  SURV  NAMELIST 

NSURV,  NHLSV,  NCLAS,  IT(I),  ITRM(I),  FMSURV(I),  ALT(I) , 
DHSV(I) ,  SWPV(I),  CLLO(I) ,  CLHI(I),  DFI(I),  CPF(I),  DSI(I), 
CPS(I),  DELCD(I),  H(I) ,  KPRINT(I) ,  TRB(I) ,  TRN(I) ,  TRU(I), 
TRL(I) ,  TRS(I),  DFI2(I),  CFF2(I),  DSI2(I),  CPS2(I) 

Card  49  -  STOL  NAMELIST  *** 

IHLS,  NF,  NS,  FLAP,  SLAT,  DF(X),  CFDC(I),  DCLOF(I),  DCLMF(I), 
DCDF(I) ,  DCMDF(I),  DS(I),  CSOC(I),  DCLOS(I),  DCLMS(I), 
DCOS(I),  DCfDS(I),  BF1I,  BFIO,  CF1,  BF2I,  BF20,  CF2,  BSII, 
BSIO,  CS1,  BS2I 

Card  50  -  ADJUST  NAMELIST 


IVAL(I),  NXVAR,  NXCL,  X(I),  XCL(I),  YM(J,I),  YA(J,I) 


**  TW  and  TS  indicate  type  of  airfoil  section;  the  following  code 
is  used  for  NAMELIST  input. 
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CODE 

AIRFOIL  TYPE 

CODE 

AIRFOIL  TYPE 

1 

63-OXX 

10 

OOXX-62 

2 

64-0 XX 

11 

00XX-63 

3 

65-OXX 

12 

00  XX- 64 

4 

66-OXX 

13 

00 XX- 65 

5 

6  3  AO  XX 

14 

OOXX-66 

6 

64A0XX 

15 

00 XX- 33 

7 

65A0XX 

16 

OOXX-34 

8 

Supercritical 

17 

OOXX-35 

9 

Biconvex 

18 

OOXX-93 

19 

OGXX-94 

20 

OOXX-95 

***  FLAT  and  SLAT  indicate  type  of  high  lift  system;  the  following 
code  is  used  for  NAMELIST  input. 


CODE  FLAP  TYPE 

CODE  SLAT  TYPE 

0  No  flap 

1  Plain  flaps 

2  Single-slotted  flap 

3  Double- slot ted  flap 

4  Triple-slotted  flap 

5  Input  section  data 

0  No  slat 

1  Leading- edge  flap 

2  Slotted  slat 

3  Kruger  slat 

4  Input  section  data 

After  all  the  NAMELIST  data  is  read  in,  card  41  is  the  next  card 
to  be  read  in. 
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BLEN 


Figure  2  BODIES 

\ 


Figure  3  NACELLES 
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ST APR  -  SCT/SCR 


Figure  4 


AIRFOIL  SURFACE  GEOMETRY 
(OTHER  THAN  MAIN  WING) 
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~HCTh- 


AR 

TAPR 

SPLAN 


WHEN  MORE  THAN 
TWO  PANELS  ARE 
USED  TO  DEFINE 
THE  WING  AN 
EQUIVALENT  TWO- 
PANEL  WING  MUST 
ALSO  BE  DEFINED 
FOR  MOMENT  CAL¬ 
CULATIONS 


Figure  5  WING  SURFACE  GEOMETRY 


BFII  -  yj^/b/2 
BFlO  -  Ji/b/2 
BS1I  -  y5/b/2 
BSIO  -  y6/b/2 


Figure  7  HIGH  LIFT  SYSTEM  GEOMETRY 


3.  SAMPLE  PROBLEMS 


Three  configurations  are  analyzed  to  Illustrate  the  Large 
Aircraft  input  techniques  and  output  formats.  Problem  1  con¬ 
siders  a  transport  configuration  and  demonstrates  the  Format 
input  option  and  the  high-speed  lift  and  drag  calculations. 
Problem  2  demonstrates  the  input  to  define  the  high- lift 
system  for  a  transport  configuration,  some  dump  options  and 
the  high-lift  system  calculations  in  both  free  air  and  in 
ground  effect.  Problem  2  also  demonstrates  the  use  of  the 
Repeat  Problem  Control  Card  to  rerun  the  problem  changing 
the  defined  configuration  from  a  full-span  flap  to  a  partial- 
span  flap  high- lift  system.  Problem  3  demonstrates  the 
Namelist  input  option  for  a  wing-body  configuration. 

An  abbreviated  sample -problem  output  listing  for  Problem  1 
is  presented  in  pages  33  through  42  corresponding  to  the  con¬ 
figuration  defined  by  the  input  data  in  Table  2.  The  first 
page  of  output  prints  the  problem  title  and  the  printout  option 
indicators  that  were  set.  The  next  set  of  output  is  a  listing 
of  some  of  the  input  data  which  occurs  when  the  FORMAT  input 
option  is  used.  The  next  set  of  output  is  a  dump  of  the  geom¬ 
etry  calculated  in  Program  GEOM  which  occurs  when  KPRINT(12) 
is  set  equal  to  1.  A  summary  of  the  configuration  geometry 
used  in  friction  drag  calculations  follows  along  with  a  table 
of  the  prediction  for  the  critical  Mach  number  versus  lift  and 
fuselage  aft-end  upsweep  drag  versus  wing  angle  of  attack.  The 
last  set  of  data  consist  of  either  a  tabulation  of  the  predicted 
drag,  moment  and  angle  of  attack  versus  lift  for  a  fixed  hori¬ 
zontal  tail  setting,  or  a  tabulation  of  drag,  tail  setting,  and 
angle  of  attack  versus  lift  for  a  trimmed  (C$f“0)  condition. 

Several  columns  of  drag  versus  lift  are  shown  tabulated 
in  the  last  set  of  data  so  that  a  breakdown  of  the  items  con¬ 
tributing  to  the  total  drag  buildup  can  be  seen.  Basic  drag 
due  to  lift  of  the  wing-body  combination  is  shown  in  one  column, 
transonic-rise-plus-fuselage  aft-end  upsweep  drag  (if  any)  is 
shown  in  another  column,  while  the  lift  and  drag  for  a  zero- 
horizontal-  tail  setting  are  shown  in  the  last  two  columns  on 
the  page.  A  listing  of  the  items  contributing  to  minimum  drag 
is  also  shown  in  the  output,  along  with  values  of  the  lift- 
curve  slope,  zero- lift  angle  of  attack,  polar  shape  factors, 
tail-off  zero-lift  moment,  tail-off  moment  curve  slope,  sepa¬ 
ration  lift  coefficient  and  maximum  lift  coefficient. 
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The  input  data  for  sample-problem  2  is  shown  in  Table  3. 

The  sample-problem  output  listing  for  problem  2  is  presented 
in  pages  44  through  51.  Problem  2  set  many  of  the  printout 
option  indicators  to  dump  data  generated  in  various  subroutines. 
The  dumped  data  is  useful  for  checking  out  the  program  or  evalu¬ 
ating  the  output  in  detail.  The  definition  of  the  parameters  that 
are  dumped  can  be  determined  from  the  listing  of  the  subroutine. 
For  the  high-lift  survey  problems  the  final  output  consists  of  a 
table  of  alpha,  Cl,  Cj),  Cm  for  both  free-air  and  in-ground  effect 
up  to  the  maximum  lift  coefficient. 

Namelist  input  data  for  sample-problem  3  is  shown  in  Table 
4  and  the  output  listing  is  presented  in  pages  53  through  56. 
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Table  2 


SAMPLE  PROBLEM  1 


C-141A 

FGRMAT 

FLIGHT  TEST 

1 

INPUT 

ANALYSIS 

NASA  CR 

3 

l  b 

1  1 

0  2 

1228.0 

266.47 

732.88 

c.o 

1590.0 

170.0 

170.0 

4347.52 

22600.0 

0.0 

204.0 

610.0 

404.0 

70.14 

70.14 

822.0 

3860.0 

0.0 

202.0 

202.0 

299.84 

43.8 

43.8 

136.8 

1508.2 

0.0 

150.0 

145.0 

199.22 

66.0 

66.0 

1045.96 

3421.2 

3228.0 

1800.0 

0.373 

1344.96 

55.0 

0011-63 

-5.58 

4.£S 

25.0 

0.4 

0.1195 

450.0 

4  8.0 

0.4 

0.11 

641.6 

404.6 

928.03 

959.7 

131.89 

64A010. 

5  0.0 

0.105 

25.01 

29.0 

11.4 

0.35 

Ui.l* 

1512.0 

0.0 

276.0 

o.o  ! 

64A013 

0.0 

0.13 

35.0 

38.5 

22.5 

0.6CG63 

273.17 

64A010 

0.0 

0.1 

73.0 

73.0 

72.0 

0.95 

200.0 

64A010 

0.0 

0.1 

73.0 

73.0 

12 

72.0 

0  21 

0.95 

200.0 

0.6 

-2.47683 

0.0 

28.0 

0.7 

-2.47683 

0.0 

28.0 

0.75 

-2.47683 

0.0 

28.0 

0.775 

-2.47683 

0.0 

28.0 

0.8 

-2.47683 

0.0 

28.0 

0.81 

-2.47683 

0.0 

28.0 

n . 

_  *1  7,  *»/.  an 

26.0 

WWW 

t  1  UU  J 

0.7 

-2.47683 

28.0 

0.75 

-2.47683 

20.0 

0.775 

-2.47683 

28.0 

0. 

-2.47683 

28,0 

0.81 

END  OF  : 
END 

—  2 .4768  3 
INPUT 

28.  C 

1558 

0  1 

P010001 
P010002 
P010003 
PO 10004 

0.0 

5.00 

PO 10005 
PO 10006 

0.0 

7.0 

1.0 

P010007 

1.2 

0.0 

2.0 

P010008 

P010009 

1.3 

0.0 

1.0 

P010010 

P010011 

1.3 

100.0 

4.0 

P010012 
PO 10013 
P010014 
PO  10015 

380.04 

310.3 

3134.2 

P010016 

240.7 

1.1 

186.3 

2932.2 

P010Q17 
P010018 
PO 10019 

115.5 

1.1 

893.74 

P010020 
P010021 
PO 10022 

219.7 

1.3 

819.4 

P010023 

P010024 

220*0 

1*3 

223.24 

P010025 

P010026 

200.0 

214.88 

P010027 

000000111111 

P010028 

0.0 

1.0 

P010029 

0.0 

1.0 

P010030 

0.0 

1.0 

PO  10031 

0.0 

1.0 

PO  10032 

0.  0 

1.0 

P010033 

0.0 

1.0 

P010034 

0.  0 

1.0 

P010035 

0 

1.0 

PO 10036 

C  i.  {* 

1.0 

P010037 

0.0 

1.0 

PO 100  38 

0.0 

1.0 

P010039 

0.0 

1.0 

•>010040 

P010041 

P010042 
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Table  3  SAMPLE  PROBLEM  2 


MCA  TN 

0-7034 

4-ENGINE  STOL  TRANSPORT  (HIGH 

WINS) 

0055T3P060001 

1 

1111 

mi  ini 

005573P060002 

FORMAT 

INPUT 

005573 P060QQ 3 

1 

0  3 

1  1 

0  1 

1 

005573P060004 

5.143 

11.28 

27.09 

-3.73 

005573P060005 

68.268 

10.404  9.504 

005573P060006 

0.0 

12.15 

25.2 

0.0 

005573P060007 

7.0 

0.3 

29.0 

5.143 

-5.05 

2.85 

005573 P06 0008 

66-012 

0.0 

0.12 

24.27 

14.7692 

4.75 

005573P060009 

25.0 

005573P060010 

66-012 

0.0 

0.12 

7.5 

1.0 

005573P060011 

12.5 

-7.5 

0.44 

9.816 

005573P060012 

58.255 

0.0 

17.67 

0.0 

005573P060013 

66-012 

0.0 

0.12 

22.0 

1.0 

005573P060014 

27.0 

6.0 

0.52 

14.628 

005573P060015 

O.S.  FLAP 

SLAT 

0055  3P060016 

0.134 

1.0 

0.16 

0.134 

1.0 

0.15 

0055V  3P060017 

0.38 

005573P060018 

0 

l 

005573 P0600 19 

30.0 

30.0 

1.16 

19.0 

1.1 

005573P060020 

1.14 

005573P06002 1 

END  OF 

INPUT 

005573 P060022 

SAVE 

005573P060023 

NACA  TN 

0-7034 

PARTIAL  SPAN 

FLAP 

005573P060024 

1 

005573P060025 

*STOL 

BF 10*0. 

75* 

005573P060026 

END  OF 

PROBLEM 

005573 P06 0027 

CC  ■  00027 
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Table  4  SAMPLE  PROBLEM  3 
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SMRCEL  SSSiS;4*-  = .  -car  f  — *  J-*.  *. 

TSiL'^AHmI?ro;ToS5fIJflri!i!'ir5S'*,sl<PLe828,2r' 

«««  *  ,rHWa2-45,r^-^ 

SS TO L  IHLS=CI  ,C  i,_7  °*a»CLMI<^=7*1.0,NaAS=21$ 

SA OjUST  I VAL (1) =2C 4T 1 
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b-’CZ  D  *  »  NIM03 


4.  PROGRAM  AND  SUBROUTINE  DESCRIPTIONS 


(arranged  in  alphabetical  order) 


This  section  contains  a  brief  outline  of  the  purpose  and  use 
of  each  program  or  subroutine. 


Subroutine  AALO 


Purpose 


To  compute  zero  lift  angle  of  attack.  The  zero-lift  angle 
of  attack  is  computed  as  the  sum  of  the  increments  due  to  camber, 
twist  and  incidence. 

Use 


CALL  AALO  (SPEED) 

where  speed  is  the  Mach  number,  the  computed  value  of  zero-lift 
angle  is  contained  in  COMMON  BLKC01. 


Subroutine  ACCR 


Purpose 

ACCR  computes  the  aerodynamic  center  at  low  lift  and  at  stall 
for  single  panel  wings.  The  subroutine  also  obtains  the  lift 
curve  slope  of  the  wing.  The  low  lift  aerodynamic  center  is  ob¬ 
tained  through  use  of  triple-interpolation  of  the  data  presented 
in  Figures  4.1.4.2-22  and  -27  in  the  DATCOM, 

Use 


CALL  ACCR  (SPEED,  AR,  SWPLE.  SWPMC,  TR,  SPLAN,  TOC,  Tw , 
FMCRO,  XACR,  CLAX,  XACS) 

where  input  is 


SPEED 

Mach  number 

AR 

Aspect  ratio  of  exposed  wing 

SWPLE 

Leading-edge  sweep 

SWPMC 

Mid-chord  sweep 

TR 

Taper  ratio 
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SPAN 

TOC 

TW 

FHCRO 


Exposed  planform  area 

Thickness  ratio 

Type  airfoil  section  indicator 

Zero-lift  critical  Mach  number  for  complete 

configuration 


and  output  is 

XACR  Low  lift  aerodynamic  center  referenced  to  leading- 

edge  of  exposed  root  chord 


CLAX  Lift-curve  slope  of  exposed  planform 

XACS  Aerodynamic  center  at  stall 


Subroutines  called 


TLNT 

AER2 

LNTP 


Subroutine  ADCL 


Purpose 

To  compute  the  effect  of  camber  on  the  displacement  of  the 
drag  polar.  For  Mach  numbers  less  than  1.0,  the  lift  coefficient 
for  minimum  profile  drag  is  computed;  for  Mach  numbers  greater 
than  or  equal  to  1.0,  the  lift  coefficient  for  minimum  drag  is 
computed. 

Use 


CALL  ADCL  (SPEED,  CLOPT) 

where  speed  is  the  Mach  number  and  CLOPT  is  the  Cl  for  minimum 
profile  drag  subsonically .  Supersonically,  CLOPT  is  the  polar 
displacement  Cl  for  CDmin. 
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Subroutine  ADJUST 


Purpose 

The  subroutine  adjusts  an  aerodynamic  parameter,  yj_,  to  a 
new  value,  y2,  by  the  equation 

y2  "  yl  '  VM  +  VA 

where  and  V^  are  correlation  multiplier  and  adder  factors 
determined  from  input.  The  factors  VM  and  are  a  function  of 
either  Mach  number  or  C^. 

Use 


CALL  ADJUST  (ID,  ID2,  XV  AR,  YVAR) ,  where 

ID  Parameter  identification  number  for  Mach  number  cases 
ID2  Parameter  identification  number  for  cases 
XVAR  Value  of  Mach  number  if  ID  greater  than  0,  or  value 
of  Cl  if  ID  *  0  and  ID2  greater  than  0 
YVAR  Input  value  y^  is  changed  to  output  value  y ^ 

Subroutines  called 


LNTP 


Subroutine  AERA 


Purpose 

The  subroutine  calculates  angle  of  attack  for  a  given  untrimmed 
Cl  condition.  For  supersonic  Mach  numbers  the  linear  relation 

't./'t..  +  aw 

is  used.  For  subsonic  conditions  the  angle  of  attack  is  calculated 
by  one  of  three  different  methods  depending  on  whether  the  wing  is 
a  high  aspect  ratio,  low  aBpect  ratio  or  has  a  cranked  leading  edge. 
For  low-aspect- ratio  and  cranked  wings  the  effect  of  vortex  lift 
is  accounted  for  in  the  angle  calculations. 

Use 


CALL  AERA  (SPEED,  CL,  ALPHA),  where 

SPEED  Mach  number  (I) 

CL  Lift  coefficient  (I) 

ALPHA  Angle  of  attack  (0) 
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Subroutines  called 


DLNT 

LNTP 


Program  AERO 


Purpose 

This  program  controls  the  sequence  of  calculations  required 
to  compute  the  trimmed  lift,  drag,  moment,  and  angle  of  attack 
for  a  given  set  of  conditions.  The  set  of  conditions  are  contained 
in  COMMON  BLK0V3  as  one  Mach  number,  altitude,  trim  indicator 
and  untrimmed  lift  coefficient.  The  trim  indicator  is  used  to 
determine  if  a  fixed  horizontal  tail  setting  is  specified  (in 
which  case  moment  is  calculated)  or  if  the  tail  setting  is  cal¬ 
culated  to  produce  a  zero  moment.  The  results  of  the  aerodynamic 
calculations  are  contained  in  COMMON  BLKC01. 

The  sequence  of  the  calling  of  subroutines  for  aerodynamic 
calculations  is  controlled  by  the  parameter  JPASS,  contained  in 
COMMON  BLKQV3,  which  is  defined  by  program  SURVEY.  The  parameter 
JPASS  is  used  to  prevent  calling  certain  subroutines  on  repeat 
passes  through  AERO  if  the  value  they  calculate  remains  fixed. 

An  example  would  be  where  lift  is  the  only  change  in  the  set  of 
conditions  received  from  COMMON  BLK0V3;  in  this  case  it  is 
unnecessary  tq,  recompute  minimum  drag  for  each  CL. 

Use 


CALL  OVERLAY  (4HOVLY,3,3) 
Subroutines  called 


ADJUST 

AERA 

AERA1  (second  entry  point  in  AERA) 

nr  iOV 


ATMOS 

CDDR 

CDDRl 

CDLl 

CDL2 

CDRG 

CLBRK 


(second  entry  point  in  CDDR) 


(AERO  continued) 
Subroutines  called 


CLWBT 
CMDW 
DM1 N 
TDRG 
WBAC 


Subroutine  AER2 

Purpose 

AER2  computes  the  lift-curve  slope  for  a  wing  surface  defined 
by  the  data  in  COMMON  BLKCLA.  The  lift- curve  slope  is  computed 
using  a  modified  Polhamus  expression  in  the  subsonic  range  which 
is  extended  to  match  the  two-dimensional  linear- theory  value  at 
high  supersonic  Mach  numbers. 

Use 


CALL  AER2  (SPEED,  CLA) ,  where 
SPEED  is  the  Mach  number  and 

CLA  is  the  computed  lift-curve  value  in  per 

degree  units 

Subroutine  AFTCD 

Purpose 

Subroutine  AFTCD  computes  the  drag  increment,  as  a  function 
of  alpha,  due  to  the  fuselage  aft- end  upsweep. 

Use 


CALL  AFTCD  (ALPHA,  CDAFT),  where 

ALPHA  is  the  angle  of  attack  of  the  wing 

CDAFT  is  the  aft-end  drag  increment  due  to 

upsweep  angle 

Subroutines  called 


DLNT 
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Subroutine  ATMOS 


Purpose 

Given  a  geometric  altitude  H  in  feet  the  following  quantities 
are  computed: 


T 

SIGMA 

D 

THETA 

DELTA 

A 


V 


K 


Temperature  in  degrees  Rankin 
Ratio  of  density  to  that  at  sea  level 
Density  in  Lb-sec^/ft^ 

Ratio  of  temperature  to  that  at  sea  level 
Ratio  of  pressure  to  that  at  sea  level 
Speed  of  sound  in  ft/sec 
Viscosity  coefficient  in  Lb-sec/ft^ 

Error  indicator 


Data  represents  mean  annual,  mid- latitude,  dry  air  conditions. 

Data  below  altitudes  of  -5000  meters  or  greater  than  90  kilometers 
is  invalid. 


The  equations  and  tables  used  in  computation  are  essentially 
the  same  as  those  used  in  computing  U.S.  Standard  Atmosphere, 
196.2,  and  this  routine  maintains  the  same  degree  of  accuracy  as 
the  tables  in  U.S.  Standard  Atmosphere,  1962. 

Use 


CALL  ATMOS  (H,  T,  SIGMA,  D,  THETA,  DELTA,  A,  V,  K) 
Reference 

U.S,  Stands  Atmosphere,  1962;  Government  Printing  Office 

Subroutine  BDRG 


Purpose 

To  compute  the  base  drag  of  in  arbitrary  body.  The  subroutine 
uses  an  empirical  equation  to  determine  base  drag. 
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Use 


CALL  BDRG  (SPEED,  AB,  SREF,  CBD) ,  where 

SPEED  Mach  number  (I) 

AB  Base  area  (I) 

SREF  Reference  area  (I) 

CDB  Base  drag  coefficient  (0) 


BLOCK  DATA 

Purpose 


charts  that  arf ““““f  bl°Ckf  Which  rePresen*  tables  and 
cnarcs  tnat  are  used  in  various  subroutines. 


Subroutine  CDDR 


Purpose 

the  So'umitVT  0a;culat^  Che  dra«  rise  *1°"S  with  defining 
the  two  limit  Mach  numbers  and  the  lift-curve  slope  at  those  8 

Mach  numbers.  The  limit  Mach  numbers  and  associated  lift-curves 

f  .T  later  m  subroutine  CDL1  to  define  the  polar  shape 
in  the  transonic  region.  K  nape 

CDDR  has  two  entry  points,  on  the  first  pass  through  the 

two  ^  uHe  du38  r±8e  equation  computed  along£with  the 

1 unit  Mach  numbers  and  their  associated  lift-curves.  For 
subsequent  passes  only  the  drag  rise  is  computed. 

Use 


CALL  CDDR  (CL,  XMACH,  RNOFT,  CDR) 
CALL  CDDR1 

Subroutines  called 


CLWBT 

FDRG 

LNTP 

WDRG 
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Subroutine  CDLl 


Purpose 

This  subroutine  calculates  the  constants  which  are  used  by 
subroutine  CDL2  to  determine  the  drag  polar. 

Use 


CALL  CDLl  (SPEED,  RNOFT,  FK,  DELCL,  PRIMER,  AKD,  AKB),  where 

SPEED  Mach  number  (I) 

RNOFT  Reynolds  no. /foot  (I) 

FK  Polar  shape  factor  below  polar  break  lift 

coefficient  (0) 

DELCL  Polar  lift  displacement  (0) 

PRIMER  Additional  drag  factor  for  drag  polar  above 

polar  break  (0) 

ARD  Theoretical  drag-due-to-lif t  factor  (0) 

AKB  Separation  drag  factor  used  to  calculate  drag 

polar  above  separation  lift  coefficient  (0) 

Subroutines  called 

ADCL 

DLNT 

KGIN 

LNTP 


Subroutine  CDL2 


Purpose 


This  subroutine  computes  the  drag-due- to- lift  using  the 
polar  shape  factors  determined  by  subroutine  CDLl  and  the  polar 
break  and  separation  lift  coefficients  determined  by  subroutine 


CLBRK. 


Use 


CALL  CDL2  (SPEED,  CL,  AEROK,  DELCL,  PRIMER,  AKD,  AKB,  CDL) , 
where 

SPEED  Mach  number  (I) 

CL  Lift  coefficient  (I) 

AEROK  Polar  shape  factor  below  polar  break  lift 

coefficient  (I) 

DELCL  Polar  lift  displacement  (I) 

PRIMER  Additional  drag  factor  for  drag  polar  above 

polar  break  (I) 

AKD  Theoretical  drag-due- to-lift  factor  (I) 

AKB  Separation  drag  factor  (I) 

CDL  Drag  due  to  lift  (O) 


64 


Subroutine  CDRG 


Purpose 

This  subroutine  calculates  the  drag  increment  due  to  wing 
camber.  Wing  camber  causes  a  lift  displacement  in  the  drag 
polar;  this  displacement  lift  increment  is  related  to  the 
difference  between  the  minimum  profile  drag  and  the  minimum 
drag  of  the  polar. 

Use 


CALL  CDRG  (SPEED,  AEROK,  DELCL,  CDC) ,  where 

SPEED  Mach  number  (I) 

AEROK  Polar  shape  factor  (I) 

DELCL  Polar  lift  displacement  (I) 

CDC  Camber  drag  (0) 


Subroutine  CDWN 

Purpose 

This  subroutine  calculates  the  nose  wave  drag  of  body  and 
nacelle  components. 

Use 


CALL  CDWN  (AMAX,  XLNOS,  RIN,  CDW) ,  where 

AMAX  Maximum  cross-sectional  area  (I) 

XLNOS  Length  of  nose  (I) 

RIN  Radius  of  inlet  area  (I) 

CDW  Wave  drag  of  component  based  on  maximum 

cross-sectional  area  (0) 


Subroutine  called 


uL'Mi' 


Subroutine  CDWT 


Purpose 

This  subroutine  calculates  the  boattail  wave  drag  of  body 
and  nrcelle  cr  lonents. 
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Use 


CALL  CDWT  (AMAX,  XLAFT,  REX,  CDW),  where 


AMAX 

XLAFT 

REX 

CDW 


Maximum  cross-sectional  area  (I) 

Length  of  boattail  (I) 

Exit  or  base  area  (I) 

Wave  drag  of  component  based  on  maximum 
cross-sectional  area  (0) 


Subroutine  called 


LNTP 


Subroutine  CDWW 


Purpose 


This  subroutine  calculates  the  wave  drag  for  airfoil  surface 
components . 


CALL  CDWW  (CDOSR) ,  where  CDOSR  is  the  wing  wave  drag  based 

on  the  configuration  reference  area. 

Also  the  data  in  COMMON  BLKWPD  must  be  defined  prior  to 
calling  CDWW.  The  lata  in  BLKWPD  is 


ZLAM 

ZLE 

ZTE 

ZM 

SOSR 

TYPE 

CAM 

TOC 


Aspect  ratio  of  surface  based  on  exposed 
planform  area 

Taper  ratio  of  exposed  planform 
Leading-edge  sweep 
Trailing-edge  sweep 
Mach  number 

Exposed  area  to  reference  area  ratio 
Airfoil  type  indicator 
Section  camber 

Section  thickness  to  chord  ratio 


Subroutine  CFEQ 


Purpose 


This  subroutine  calculates  the  flat-plate  skin  friction 
coefficient  using  the  White-Chris toph  technique  for  turbulent 
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flow,  the  Blasius  relation  for  laminar  flow,  and  a  momentum 
thickness  matching  technique  for  partial  laminar- turbulent 
flow. 

Use 

CALL  CFEQ  (RNOFT,  ZMACH,  CBAR,  XTR,  CF) ,  where 

RNOFT  Reynolds  number/foot 

ZMACH  Mach  number 

CBAR  Leng th 

XTR  Distance  along  CBAR  where  transition  occurs 

•  CF  Skin  friction  coefficient 


Subroutine  CLBRK 


Purpose 


Subroutine  CLBRK  calculates  the  lift  coefficients  for  polar 
break,  separation  drag  onset,  and  maximum  lift.  The  subroutine 
also  calculates  other  aerodynamic  parameters  used  in  subroutine 
AERA  to  compute  angle  of  attack  as  a  function  of  Cl- 


Use 


CALL  CLBRK  (SPEED,  RE5  RNOFT),  where 

SPEED  Mach  number  (I) 

RE  Reynolds  number  parameter  (I) 

RNOFT  Reynolds  number/foot  (I) 

The  output,  contained  in  COMMON  BLKCOl,  is  defined  as, 

CLPB  Polar  break  lift  coefficient 

CLDB  Separation  lift  coefficient 

CLMAX  Maximum  lift  coefficient 

ABRK  Angle  of  attack  for  polar  break 

AMAX  Angle  of  attack  at  CLMAX 

DAMAX  Increment  in  angle  of  attack  between  AMAX 

and  a  linear  value  of  alpha  at  CLMAX 
DEL  Tail  lift  increment  to  CLMAX 

CLS  Lift  coefficient  where  CL  versus  alpha 

becomes  nonlinear 

Aspect  ratio  limit  between  low  AR  and  high 
AR  calculations 


ARLO 


Subroutines  called 


DLNT 

LNTP 


Subroutine  CLWBT 


Purpose 

CLWBT  controls  the  sequence 
total  wing-body- tail  lift  curve 
and  the  factors  used  to  compute 
a  horizontal  tail  deflection. 

Use 


of  calculations  that  compute  the 
slope,  zero  lift  angle  of  attack 
drag  and  lift  increments  due  to 


CALL  CLWBT  (SPEED),  where  SPEED  is  the  Mach  number,  the 

output  is  contained  in  COMMON  BLKC01. 

Subroutines  cal led 


AALO 

ADJUST 

AER2 

TAIL 


Subroutine  CMOW 


Purpose 


Subroutine  CMOW  computes 
wing-body  conf igur ^tion. 


the  moment  at  zero- lift  for  the 


Use 


CALL  CMOW  (SPEED,  CJf)),  where 

SPEED  Mach  number  (I) 

040  Wing -body  Cm(? 

Subroutine  called 


Subroutine  CONV 


Purpose 


CONV  converts  input  data  to  feet  and  radian  units  for  the 
namelist  input  program  NINPT.  The  subroutine  makes  the  conver¬ 
sion  only  to  the  variables  that  are  redefined  in  the  NINPT 
program. 

Use 


CALL  CONV 
CALL  CONVl 


Subroutine  CPUOV 

Purpose 

This  subroutine  calculates  the  pressure  coefficient,  Cp  at 
x/c  for  an  infinite  sheared  wing.  The  Cp  is  obtained  by  solving 
Equations  (93)  and  (90)  in  the  Royal  Aero.  Soc .  TDM-6312.  The 
arrays  corresponding  to  s(l)(x),  S^'(x),  s(3)(x),  s(^)(x),  and 
s(5)(x)  in  Equation  (93)  are  obtained  from  COMMON  BLKCPI  and 
were  defined  in  subroutine  CPZT. 

Use 


CALL  CPUOV  (S,  A,  SWP,  IV,  CPI,  CP,  XM) ,  where 


s 

Sign  indicator  (+1  for  upper  surface  Cp,  and 

-1  for  lower  surface  Cp) 

(I) 

A 

Angle  of  attack  (I) 

SWP 

Sweep  angle  (I) 

IV 

Contrc  1  point,  x/c  =  ^(1 

-  cos (  32  ))  (I) 

CPI 

Incompressible  Cp  (0) 

pn 

ox 

Compressible  value  of  Cp 

(0) 

XM 

Mach  number  (I) 

Subroutine  CPZT 

Purpose 

This  subroutine  computes  the  critical 

Mach  number  using  the 

local  Mach 

number  normal  to  the  isobar  in 

the  mid- span  region 
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of  the  wing.  The  mid-chord  sweep  and  the  aspect  ratio  of  the 
wing  are  used  to  define  an  effective  isobar  sweep.  The  sub¬ 
routine  obtains  the  airfoil  geometry  from  subroutine  SECT  and 
the  pressure  distribution  around  the  airfoil  from  subroutine 
CPtJOV.  The  subroutine  then  uses  the  incompressible  pressure 
at  the  crest  of  the  airfoil  and  isentropic  flow  relationships 
to  calculate  the  critical  Mach  number  on  the  wing.  The  pre¬ 
dicted  wing  critical  Mach  number  is  prevented  from  exceeding 
the  critical  Mach  number  of  the  fuselage  which  is  calculated 
as  a  function  of  fuselage  fineness  ratio. 

Use 


CALL  CPZT  (ID,  XMACH,  TOC,  CLD,  SWEEP),  where 

ID  Type  identification  of  the  airfoil  (I) 

XMACH  Mach  number  for  compressible  Cp  solutions  (I) 

(set  equal  to  0.6  in  Program  MCRIT) 

TOC  Airfoil  section  thickness  ratio  (I) 

CLD  Airfoil  section  camber  (I) 

SWEEP  Mid-chord  sweep  at  mid-semi-span  of  the 

wing  (I) 

The  output  which  consists  of  a  series  of  critical  Mach 
number  and  lift  combination^  -easing  from  a  six-degree 
angle  of  attack  are  contained  in  COMMON  BLKA05. 

Subroutines  called 


CPUOV 

LNTP 

SECT 


Subroutine  DAERO 


Purpose 

This  subroutine  computes  the  lift,  moment  and  drag  in  free 
air  and  in  ground  effect  of  the  high- lift  system.  Subroutine 
DAERO  uses  the  incremental  effect  of  flap  and  leading-edge 
device  computed  in  subroutines  DSET  and  MSET  along  with  the 
clean  airplane  aerodynamics  computed  by  program  AERO  to  compute 
the  total  lift,  drag  and  moment  versus  angle  of  attack  in  both 
free  air  and  ground  effect. 
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Use 


CALL  DAERO  (ALPHA,  CL,  CD,  CM,  AGRD,  CLG,  CDG,  CMS,  H,  DF),  where 

ALPHA  Angle  of  attack  (I) 

CL  Lift  coefficient  (0) 

CD  Drag  coefficient  (0) 

CM  Moment  coefficient  (0) 

AGRD  Angle  of  attack  in  ground  effect  (0) 

CLG  Lift  coefficient  in  ground  effect  (0) 

CDG  Drag  coefficient  in  ground  effect  (0) 

CMG  Moment  coefficient  in  ground  effect  (0) 

H  Height  of  wing  c/4  point  above  ground  (I) 

DF  Flap  deflection  (I) 

Subroutines  called 


DLNT 

LNTP 


Function  DLNT 

Purpose 

DLNT  is  a  two-dimensional,  nth-order  Lagrangian  interpola¬ 
tion  procedure. 

Use 


CALL  DLNT  (XBAR,  YBAR,  X,  Y,  F,  NX,  NY,  NXMAX,  LOX,  LOY) , 
where 


XBAR 

YBAR 

X 

Y 

F 

NX 

NY 


NXMAX 
LOX,  LOY 


The  X  value  at  which  a  value  of  the  function 
is  to  be  interpolated  (I) 

The  Y  value  at  which  a  value  of  the  function 
is  to  be  interpolated  (I) 

The  array  of  X  values  (I) 

The  array  of  Y  values  (I) 

The  values  of  the  function  f(x,y)  (I) 

The  size  of  the  X  array  and  the  F  array  in 
the  X  direction  (1) 

The  size  of  the  Y  array  and  the  F  array  in 
the  Y  direction  (I) 

The  dimension  of  the  F  array  in  the  X  direction 
in  the  calling  routine  (I) 

Number  of  points  to  be  used  in  the  X  and  Y 
directions,  respectively,  in  the  interpolations: 
1  for  step,  2  for  linear,  3  for  parabolic,  4  for 
cubic,  etc.  (I) 
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Subroutine  called 


LNTP 


Subroutine  DMIN 


Purpose 


Subroutine  DMIN  controls  the  sequence  of  calculations 
necessary  to  compute  minimum  drag. 

Use 


CALL  DMIN  (SPEED,  RNOFT,  CDMIN) ,  where 

SPEED  Mach  number  (I) 

RNOFT  Reynolds  number/ft  (I) 

CDMIN  Minimum  drag  (0) 

Subroutines  called 


ADJUST 

BDRG 

FDRG 

WDRG 


Subroutine  DSET 

Purpose 

Subroutine  DSET  computes  the  incremental  lift  and  drag  of 
flaps  and  leading-edge  devices.  This  subroutine  uses  the  two- 
dimens  ional  section  data  calculated  in  subroutine  SSET  along 
with  the  geometry  of  the  high  lift  system  in  order  to  compute 
the  incremental  effect  on  the  airplane. 

Use 


CALL  DSET  (BFI,  BFO,  BSI,  BSO,  CF) ,  where 

BFI  Inboard  span  station  of  flap  (I) 

BFO  Outboard  span  station  of  flap  (I) 

BSI  Inboard  span  station  of  leading-edge  device  (I) 

BSO  Outboard  span  station  of  leading-edge  device  (I) 

CF  Chord  ratio  of  trailing-edge  flap  (I) 
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The  output  is  contained  in  COMMON  BLKC02  where 

DCLOF  Increment  in  lift  at  zero  angle  of  attack  due 

to  flap  deflection 

DCLOS  Increment  in  lift  at  zero  angle  of  attack  due 

to  leading-edge  device 

DCLMF  Increment  in  maximum  lift  due  to  flap  deflection 

DCLMS  Increment  in  maximum  lift  due  to  leading- edge 

device 

DCDMIN  Increment  in  minimum  drag  due  to  high- lift 

system 

DCLF  Displacement  in  drag  polar  due  to  flap  deflection 

DCLS  Displacement  in  drag  polar  due  to  leading-edge 

device 

SPLANX  Planform  area  with  high-lift  system  deployed 

RCLA  Ratio  of  lift  curve  slope  with  high- lift  system 

to  clean  airplane  lift- curve  slope. 

Subroutines  called 


DLNT 

I.NTP 

Subroutine  FDRG 

Purpose 

This  subroutine  calculates  friction,  form  and  interference 
drag  for  all  the  components  on  the  airplane. 

Use 

CALL  FDRG  (SPEED,  RNOFT),  where 

SPEED  Mach  number  (I) 

RNOFT  Reynolds  number/ft  (I) 

The  output  is  contained  in  C0MM3N  BLKCC1. 

Subroutines  called 


CFEQ 

FFACT 

IFACT 
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Subroutine  FFACT 


Purpose 


Subroutine  FFACT  computes  the  form  factors  for  each  component. 


Use 


CALL  FFACT  (ID,  GEOM,  TYP,  CLD,  SPEED,  CRITM,  FF),  where 

ID  Identification  for  bodies,  nacelles,  or 

surface  components  (I) 

GEOM  Fineness . ratio  for  bodies  and  nacelle  components; 

or  thickness  ratio  for  surface  components  (I) 

TYP  Airfoil  type  identification  number  (I) 

CLD  Airfoil  camber  (I) 

SPEED  Mich  number  (I) 

CRITM  Critical  Mach  number  of  configuration  (I) 

FF  Form  factor  (0) 


Program  GEOM 

Purpose 

Program  GEOM  computes  many  of  the  geometric  parameters 
that  are  used  in  aerodynamic  calculations.  The  geometry  that 
was  read  in  as  input  is  used  to  calculate  the  additional 
geometry  needed  for  aerodynamic  calculations.  The  input 
geometry  is  contained  in  C0MMDN' s  BLKA01,  BLKA02,  and  BLKA03 
and  the  geometry  calcula  ted  in  program  GEOM  is  output  in 
C0MM3N  BLKG01. 

Use 


CALL  OVERLAY  (4H0VLY,  2,  0) 


Subroutine  IFACT 


Purpose 


Subroutine  IFACT  computes  the  interference  factors  fur 
each  component. 
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Use 


CALL  IFACT  (ID,  PARM,  CRITM,  SPEED,  FI),  where 

ID  Identification  for  bodies  or  surface  components  (I) 


PARM 

CRITM 

SPEED 

FI 


Fuselage  Reynolds  number  for  bodies,  or  maximum 
thickness  sweep  for  surface  components  (I) 
Critical  Mach  number  of  configuration  (I) 

Mach  number  (I) 

Interference  factor  (0) 


Subroutine  called 
DLNT 


Program  INPT 

Purpose 

The  configuration  geometry  and  the  aerodynamic  conditions 
to  be  run  are  read  in  using  formatted  input  statements.  The 
program  also  converts  the  input  data  from  inch  and  degree  units 
to  feet  and  radians. 


Use 


CALL  OVERLAY  (4H0VLY,  1,  1) 


Subroutine  KGIN 


Purpose 

This  subroutine  computes  the  polar  shape  factor  and  polar 
displacement  for  a  drag  polar  with  drag  rise  added.  A  least- 
squares,  second-degree  curve  is  fitted  to  the  drag  polar  with 
drag  rise.  This  is  needed  by  subroutine  CDLl  in  order  to 
interpolate  the  polar  shape  in  the  transonic  region  be twC€n 
«L1  and  M^. 

Use 


CALL  KGIN  (CLDB,  AKIN,  DECLIN,  SPEED,  AKOTJT,  DCT.OUT) ,  where 

Upper  Cl  limit  for  polar  calculation  (I) 

Polar  shape  factor  without  drag  rise  (I) 

Polar  displacement  Cl  without  drag  rise  (I) 
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i .  .afisSi  v&s sSJSsiitsiir 


CLDB 

AKIN 

DECLIN 


SPEEU  Mach  number  (I) 

AKOUT  Equivalent  polar  shape  factor  with  drag  rise  (0) 

DCLOUT  Equivalent  polar  displacement  with  drag  rise  (0) 

Subroutines  called 

CDDRl 

LSPCF 


Subroutine  LNTP 


Purpose 

LNTP  is  a  one-dimensional,  nth-order  Lagrangian  interpolation 
pro  ;edure , 

Use 


CALL  LNTP  (XRAE,  YBAR,  X,  Y.  M,  NO),  where 

XBAR  The  abscissa  value  at  which  an  ordinate  is 

to  be  interpolated  (I) 

YBAR  The  interpolated  ordinate  (0) 

X  The  array  of  abscissas  (I) 

Y  The  array  of  ordinates  (I) 

M  The  f.  ize  of  the  arrays  (I) 

NO  The  number  of  points  to  be  used  in  the  inter¬ 

polation.  N0=1  for  •  *“ep,  N0=2  for  linear, 
N0=3  for  parabolic,  N0=4  £or  cubic,  etc.  (I) 


Program  LSHL 

r>r  fo.se 


LSKL  controls  the  sequence  of  calculations  to  produce  lift, 
moment,  and  drag  variations  with  angle  of  attack  for  each 
low-speed,  high-lift  survey  condition  specified  by  the  input. 
Per  each  high-lift:  survey,  the  program  computes  the  incremental 
eff  .ct  for  an  inboard  and  an  outboare  high-lift  system  segment. 
The  program  then  sets  up  a  DO  LOOP  to  calculate  the  total  lift, 
drag  and  moment  for  changing  angle  of  attack  up  to  CijktAX' 
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Use 


CALL  OVERLAY  (4HOVLY,  3,  4) 
Subroutines  called 


DAERO 

DSET 

MSET 

SSET 


Program  MCRIT 


Purpose 

Program  MCRIT  constructs  a  table  of  critical  Mach  number 
versus  Cl  from  either  an  input  table  or  by  using  an  empirical 
method . 

Use 


CALL  OVERLAY  (4H0VLY,  3,  2) 
Subroutines  called 


ADJUST 

CPZT 

LNTF 


Program  MRIT  (MAIN  PROGRAM) 


Purpose 

This  program  controls  the  logic  of  the  calling  of  the  three 


primary  overlays.  The  lengths 
used  in  all  three  overlays  are 

Programs  called 

OVERLAY (4H0VLY,  1,  0) 
OVERLAY ( 4HO VLY ,  2,  0) 
OVERLAY ( 4HOVLY ,  3,  0) 


of  the  principal  COMMON  blocks 
Iso  specified  in  this  program. 


(XINPT) 

(GEOM) 

(SURVEY) 


Subroutine  MSET 


Purpose 

Subroutine  MSET  computes  the  incremental  moment  at  zero 
lift  of  jnd  1  eading-edge  devices.  This  subroutine  uses 

the  two- dinens i ona i  section  data  calculated  in  Subroutine  SSET 
a^ng  -  i  ch  cr.c  »eui*etrv  of  the  high- lift  system  in  order  to 
conpute  the  i  ncrer**- ■  •  ffect  or.  the  airplane. 


os  e 


CALL  MS  FT 

ef  :  BFt,  as  i. 

BFI 

lT'y.~TC  span 

?  et<  , 

V  Lv  arc  span 

1 

I J  spar. 

BSO 

•aueboarc:  pan 

output  is  t 

: o n t a i ne d  in  COMM 

DCK) 

Increment  ir 

CDMCL 

I  nci  i  n 

lift  curve 

Subroutines  called 


DLNT 


Subroutine  MTXEQ 


Purpose 

MTXEQ  solves  a  set  of  simultaneous  equations.  This  sub¬ 
routine  will  solve  the  matrix  equation  AX  =  B  for  the  unknown 
matrix  X.  The  dimensions  of  the  matrices  must  be: 

A:  NxN  B:  NxM 

where  M  is  the  number  of  B  vectors  to  be  transformed  into  X 
vectors.  At  the  same  time,  this  subroutine  computes  a  scaled 
version  of  the  determinant  of  the  matrix  A. 

The  solution  of  the  matrix  equation  AX  =  B  is  accomplished 
by  upper  triangularizing  the  A  matrix  using  a  maximum  row  element 
as  a  pivot  point  for  each  3tage  in  the  reduction  of  the  matrix  A. 
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This  entails  searching  in  the  first  column  of  the  reduced  (N-K)  x 
(N-K)  A  matrix  for  the  element  whose  absolute  value  is  the  largest. 
A  row  interchange  is  then  performed  to  bring  this  element  into  the 
ARK  position.  After  completion  of  the  triangularization,  back 
substitution  is  used  to  obtain  the  X  matrix. 

Use 


CALL  MTXEQ  (A,  X,  B,  N,  K) ,  where 


A 

The 

array  containing 

the  elements 

of  the 

matrix 

A. 

Array 

A  must  have 

dimensions 

NxN. 

X 

The 

array 

containing 

the  elements 

of  the 

« 

matrix 

X. 

Array  X  must  have 

dimens ions 

NxK. 

B 

The 

array 

containing 

the  elements 

of  the 

matrix 

B. 

Array 

B  must  have 

dimensions 

NxK. 

N 

Number  of 

columns  and 

rows  in  the 

matrix 

A. 

K 

Number  of 

columns  in 

the  matrix  B 

and  X. 

Program  NINPT 

Purpose 

The  configuration  geometry  and  the  aerodynamic  conditions 
to  be  run  are  read  in  using  NAMELIST  input  statements.  The 
program  calls  subroutine  CONV  to  convert  the  input  data  to 
feet  and  radians  units.  For  cases  which  are  to  be  rerun  with 
only  a  slight  change  in  input  from  the  previous  case,  an 
indicator  is  used  to  read  only  certain  sets  of  namelist  data. 

Use 


CALL  OVERLAY  (4H0VLY,  1,  2) 
Subroutines  called 
CONV 

C0NV1  (second  entry  point  in  CONV) 
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Subroutine  PLSQ 


Purpose 

To  fit  a  polynomial  of  degree  K  to  the  set  of  points 
(X^,  Y^)  for  i  ■  1,  . . . ,  N,  by  the  method  of  least  squares. 

The  method  of  solution  is  as  follows: 

Given  a  set  of  N  points,  coefficients  ai e  found  such 
that: 

Y  -  C(R+1)  +  C(K) • X  +  C (K- 1) * X2  +  ... 

+  C(  )*XK_1  4-  CCl)^ 

is  tne  best  least-square  fit  to  Y^  for  an  Kth  degree  fit. 
PLSQ  solves  the  regression  matrix  equation  by  calling  MTXEQ. 
Use 


CALL  PLSQ  (X,  Y,  N,  K,  C,  LIST,  EMAX,  ERMS ,  EMEQ) ,  where 

X  Array  of  N  independent  variables 

Y  Array  of  N  dependent  variables 

N  Number  of  variables 

K  Degree  of  the  least-squares  polynomial 

C  Array  of  coefficients,  high  order  to  low  order, 

of  the  least-squares  polynomial 

LIST  Error  analysis  output  indicator 

=0  suppresses  error  analysis  printout 
=1  prints  error  analysis 

EMAX  Maximum  absolute  error  obtained  by  using  the 

least-square  fit  polynomial  to  approximate 
the  dependent  variable 

ERMS  RMS  error  obtained  by  u:  Lng  the  least-square 

fit  polynomial 

EMEQ  Maxunum  derivation  from  unity  in  the  linear 

system  check  solution 


Subroutine  called 
MTXEQ 


SO 


Subroutine  SECT 


Purpose 

Subroutine  SECT  calculates  the  thickness  and  camber  airfoil 
ordinates  which  are  used  in  subroutine  CPZT  to  calculate  pressure 
distributions.  SECT  can  calculate,  using  internal  methods,  the 
section  data  for  the  standard  NACA  6-series  and  4-digit  airfoils 
along  with  a  biconvex  and  Whitcomb's  supercritical  airfoil.  The 
subroutine  can  also  obtain  the  airfoil  ordinates  at  the  control 
points,  x/c,  needed  for  pressure  solutions  by  interpolation  on 
a  table  of  input  ordinates. 

Use 


CALL  SECT  (ID,  TOC,  CLD) ,  where 

ID  Airfoil  section  identification  number  (I) 

TOC  Airfoil  thickness  ratio  (I) 

CLD  Airfoil  camber  (I) 

The  output  is  contained  in  COMMON  BLKR07 . 

Subroutine  called 


LNTP 


Subroutine  SETUP 


Purpose 

Places  initial  values  of  0.0  in  the  input  and  geometry 
common  blocks.  This  is  done  to  prevent  indeterminate  values 
to  be  used  in  program  calculations  if  input  data  did  not 
specify  values. 


U£ 


CALL  SETUP 


Subroutine  SSET 


Purpose 

Subroutine  SSET  computes  tb*  two-dimensional  section  data 
used  in  subroutines  DSET  and  MSLT  to  compute  the  incrr  ental 
lift,  drag  and  moment  due  to  a  high-lift  system.  SSI  either 
computes  the  two-dimensional  increments  using  a  empirical 
modification  of  thin-airfoil  theory,  or  SSET  obtains  the 
two-dimensional  increments  from  input  data  if  available. 

Use 

CALL  SSET  (DF,  DS,  CFOC,  CSOC,  OTE,  ROT),  where 

DF  An  array  containing  the  flap  deflection  of 

each  element  of  the  trailing-edge  flap  (I) 

DS  Deflection  of  the  leading- edge  device  (I) 

CFOC  An  array  containing  the  chord  length  ratios 

of  each  element  of  the  trailing-edge  flap  (I) 
CSOC  Chord  length  ratio  of  the  leading- edge  device 

(I) 

OTE  Airfoil  trailing-edge  angle  (I) 

ROT  Airfoil  leading-edge  radius  divided  by 

thickness  (I) 

The  output  is  contained  in  COMMON  BLKC01,  where 

DC1.F  Two  -dimensional  increment  in  lift  at  zero 

angle  of  attack  due  to  flap  deflection 
DClMF  Two-dimensional  increment  in  maximum  lift 

due  to  flap  deflection 

DCDFS  Increment  in  profile  drag  due  to  flap 

deflection 

DCMFS  Two-dimensional  increment  in  momentum  at 

zero  alpha  due  to  flap  deflection 
DC1S  Two-dimensional  increment  in  lift  at  zero 

angle  of  attack  Hue  to  leading-edge  device 
DClMS  Two-dimensional  increment  in  maximum  lift 

due  to  leading- edge  device 

DCDSS  Increment  in  profile  drag  due  to  leading-edge 

device 
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DCDMSS 


Two-dimensional  increment  in  moment  at 
zero  alpha  due  to  leading-edge  device 


Subroutines  called 


DLNT 

LNTP 


Program  SURVEY 


Purpose 

SURVEY  controls  the  sequence  of  calculations  to  produce  a 
lift,  moment  and  drag  variation  for  each  high-speed  survey 
condition  pecified  by  the  input. 

For  variable  sweep  configurations  the  program  will  first 
call  program  VGEOM  with  the  wing  leading-edge  sweep  set  at 
the  forward  position  and  then  recall  program  VGEOM  with  the 
sweep  set  at  the  aft  position.  This  is  done  in  order  to 
setup  program  VGEOM  for  geometry  calculations  at  any  arbitrary 
sweep  position.  SURVEY  then  enters  a  DO  LOOP  where  the  high 
sweep  survey  conditions  are  set  up.  SURVEY  calls  VGEOM  and 
MCRIT  to  recalculate  the  geometry  and  the  configuration  critical 
Mach  number  each  time  the  leading- edge  sweep  is  changed  in  a 
survey.  SURVEY  then  enters  an  inner  DO  LOOP  where  a  sequence 
of  untrimmed  Cl  are  generated  and  program  AERO  is  called  to 
obtain  the  trimmed  lift,  moment  and  drag.  SURVEY  then  prints 
out  the  results. 

If  a  series  of  low-speed,  high-lift  surveys  were  specified 
by  the  input,  SURVEY  then  calls  program  LSHL  to  perform  those 
calculations . 

Use 


CALL  OVERLAY  (4H0VLY,  3,  0) 


Programs  called 


0VERLAY(4H0VLY, 

3, 

1) 

(VGEOM) 

OVERLAY (4H0VLY, 

3, 

2) 

(MCRIT) 

0VERLAY(4H0VLY, 

3, 

3) 

(AERO) 

OVERLAY (4H0VLY, 

3, 

4) 

(LSHL) 
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Subroutine  TAIL 


Purpose 

Subroutine  TAIL  computes  the  lift  curve  slope  contribution 
of  the  tail  along  with  factors  used  to  compute  lift  and  drag 
increments  due  to  a  horizontal  tail  deflection.  These  factors 
are  computed  by  first  solving  for  the  downwash,  dynamic-pressure, 
exposed  area  lift-curve  slope,  carry-over  lift  factors  and 
induced  drag  for  the  tail. 

Use 

CALL  TAIL  (SPEED),  where  SPEED  is  the  input  Mach  number. 

The  output,  contained  in  COMMON  BLKC01,  is 

CLAT  Lift-curve  slope  contribution  of  the  tail 

A  Trim  drag  factor 

B  Trim  drag  facto: 

AOH  Angle  of  zero  lift  of  the  tail 

CLDH  Change  in  lift  due  to  tail  deflection  factor 

DEDA  Change  in  downwash  per  change  in  angle  of  attack 

Subroutines  called 


AER2 

LNTP 


Subroutine  TDRG 


Purpose 

Subroutine  TDl'G  calculates  moment  using  the  wing-body  Cnv, 
and  aerodynamic  center  along  with  the  tail  lift  and  moment  arm. 
Depending  upon  user  options  the  moment  can  be  calculated  at  a 
fixed  horizontal  tail  setting,  or  a  tail  setting  can  be  computed 
which  will  trim  out  the  moment.  Lift  and  drag  increments  due 
to  tail  deflection  are  also  computed. 

Use 

*,  CALL  TDRG  (J.TRIM,  SPEED,  DCLT,  DCDT) ,  where 
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ITRIM  Trim  indicator,  »0  if  tail  setting  specified 

by  input,  ”1  if  tail  setting  is  to  be  computed 
to  trim  out  moment 
SPEED  Mach  number 

DCLT  Increment  in  lift  due  to  tail  deflection 

relative  to  zero  tail  setting 
DCDT  Increment  in  drag  due  to  tail  deflection 

relative  to  zero  tail  setting 

Subroutine  TLNT 

Purpose 

TLNT  is  a  triple- linear  interpolation  procedure. 


Use 


CALL  TLNT  (XBAR,  YBAR,  ZBAR,  FBAR,  X,  Y,  Z,  F,  NX,  NY,  NZ, 
NXMAX,  NYMAX),  where 


XBAR 

YBAR 

ZBAR 

FBAR 

X 

Y 

Z 

F 


The  X  value  at  which  a  value  of  the  function 
is  to  be  interpolated  (I) 

The  Y  value  at  which  a  value  of  the  function 
is  to  be  interpolated  (I) 

The  Z  value  at  which  a  value  of  the  function 
is  to  be  interpolated  (I) 

The  interpolated  value  of  the  function  F(X,Y,X) 

(I) 

The  array  of  X  values  (I) 

The  array  of  Y  values  (I) 

The  array  of  Z  values  (I) 

The  three-dimension  array  F  values  (I) 


NX 

The 

size  of  the  X  array 

and 

the 

F 

array  in 

the 

X  direction  (I) 

NY 

The 

size  of  the  Y  array 

and 

the 

F 

array  in 

the 

Y  direction  (I) 

NZ 

The 

size  of  the  Z  array 

and 

the 

F 

array  in 

the 

Z  direction  (I) 

NXMAX 

The 

dimension  of  the  F 

array 

in 

the  X  direction 

in 

the  calling  routine 

(I) 

NYMAX 

The 

dimension  of  the  F 

array 

in 

the  Y  direction 

in 

the  calling  routine 

(I) 

Subroutines  called 


DLNT,  LNTP 
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Program  VGEOM 


Purpose 

Program  VGEOM  computes  the  geometry  parameters  that  vary 
with  wing  sweep  for  variable-sweep  configurations.  The  program 
is  first  called  by  program  SURVEY  at  the  forward  and  most  aft 
sweep  positions  in  order  to  set  up  VGEOM  for  any  arbitrary 
sweep  calculation. 

Use 


CALL  OVERLAY  (4H0VLY,  3,  1) 


Subroutine  WBAC 


Purpose 

Subroutine  WBAC  computes  the  aerodynamic  center  location 
for  wing-body  configurations.  The  subroutine  calculates  the 
aerodynamic  center  of  the  wing  carry-over  lift  on  the  body,  and 
the  aerodynamic  center  of  the  fore body.  A  composite  aerodynamic 
center  is  then  computed  using  the  aerodynamic  center  and  lift 
curve  slope  of  each  component. 

Use 


C..LL  WBAC  (SPEED,  XACR),  where 
SPEED  Mach  number  (I) 

XACR  Aerodynamic  center  of  the  wing-body  configu¬ 

ration  reference  to  the  leading  edge  of  the 
exposed  root  chord 

Subroutines  called 


ACCR 

DLNT 

LNTP 
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Subroutine  WDRG 


Purpose 

This  subroutine  calculates  the  wave  drag  for  all  the 
components  on  the  airplane. 

Use 


CALL  WDRG  (FMACH) ,  where 
»  FMACH  Mach  number 

The  output  is  contained  in  COMMON  BLKC01. 
Subroutines  called 


CDWN 

CDWT 

CDWW 


Program  XINPT 


Purpose 


XINPT  controls  the  sequence  of  input  for  new  problems  or 
allows  the  previous  problem  to  be  repeated  with  only  a  small 
change  in  input.  For  each  new  problem  the  title  card,  print 
dump  card,  anL  input  control  card  are  read  from  the  input 
file.  The  subroutine  SETUP  is  then  called  to  zero  out  all  the 
input  common  blocks,  then  depending  upon  the  input  control  card 
either  of  the  secondary  overlay  programs  INPT  or  NINPT  are  then 
called  to  continue  reading  the  input  file.  After  the  input 
file  is  read  for  a  given  problem,  control  is  then  transferred 
back  to  MRIT  where  the  solution  to  the  problem  is  obtained. 

After  each  solution  is  obtained  control  is  then  transferred 
back  to  XINPT  and  the  repeat  problem  control  card  is  then 
read.  If  end-of-file  on  tape  5  is  read  the  program  is  terminated. 
If  a  perturbation  of  the  previous  problem  is  indicated,  NINPT  is 
called  where  the  revised  input  is  then  read. 

Use 


CALL  OVERLAY  (4H0VLY,  1,  0) 
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Programs  called 


SETUP 

OVERLAY ( 4HO VLY ,  1,  1)  (INPT) 

OVERLAY ( 4HO VLY ,  1,  2)  (NINPT) 

EXIT 
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PROGRAM  LISTING 
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n  n 


c 


c 


r 

c 


OVERLAY  ( OVL  Y»  0*  0 )  RlTOOOl 

PROGRAM  MR1T(INPUT»0UTPUT»TAPE5*IMPUT  » TA?E6*0UTPUT  I  R1T0002 


LARGE  t 

iIRCR AFT 

AEROOYNAMIC  PREDICTION  PROCEDURE 

R1T0003 

OMMON 

/BLKA01/ 

N4<  7) 

R IT 0004 
R IT  000 5 

COMMON 

/BLKA02/ 

A02 ( 633 ) 

R1T0006 

COMMON 

/BLK A  03/ 

A03I20) 

R1T0007 

COMMON 

/BLKA04/ 

N3(  3)  ,  A04(  781 

R IT  0008 

COMMON 

/BI.KA05/ 

A05I131),  NMCR,  NXSET 

R1T0009 

COMMON 

/BLK  SUR/ 

N II  42 1 ,  SUR (3701 

RIT0010 

COMMON 

/8LKHLS/ 

N2»  HLSI70) 

R1T0011 

COMMON 

/ BLKG01/ 

Clf  200) 

R IT  0012 

COMMON 

/BLKPRT / 

KPRINTI 50) 

R1T0013 

COMMON 

/BLK ADJ/ 

ADJ ( 322  1 

R1T0014 

COMMON 

/ BLKT  IL / 

TITLE ( 6  1 

R1T0015 

CCMMON 

/BLK0V1/ 

IJ 

R1T0016 

IJ 

=  0 

R1T0017 

R1T0021 

20  CALL  0VFRLAYI4H0VLY, 1, 0) 

R IT 0022 

R1T0023 

CALL  OVERLAY I4H0VLY»2|01 

R1T0024 

CALL  OVFRL  AY <  4H0VL Y *3,0) 

R1T0025 

R IT  0026 

GO  TO  20 

R1T0027 

R1T0028 

END 

RIT0029 

CC  =  00026 
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onnnnnooorio 


SUBROUT INE  LNTP < XBAR, YBAR , X , Y ,M ,NG ) 

LAGRANGIAN  INTERPOLATION 

II  INCREASING  OR  DECREASING  X  ARRAY 
21  LINEAR  EXTRAPOLATION  ONLY 

3)  NO  =  NUMBER  OF  POINTS  USED  IN  INTERPOLATION 
41  M  =  TOTAL  NUMBER  OF  POINTS  IN  X  ARRAY 
51  IFINO.LE.O.OR.M.LE.OI  YBAR  *  0.0 
6)  IFIM.EQ.  l.AND.NO.GT.OI  YBAR*Y( 1) 
n  IF(NO.EO.l.AND.M.GT.O)  YBAR=Y( NEAREST  XIII  I 
81  IF'NO.GT.MI  INTERPOLATION  AS  IF  NO*M 

DIMENSION  X (M I  ,  YIMI 
C 

Y  B AR=  0. 0 
N  =  NO 

IFCN.GT.M)  N=M 
IFIM.LE.O.OR.N.LF  .01  RETURN 
IFIM.GT.I)  GO  TO  10 
Yfl AR  =  Y ( 1 1 
RETURN 

r. 

10  *CC  =  0 

IF(X(MJ .LT . X ( II  I  MDC* 1 
DO  20  1  =  2, M 
1 1= I-l+MOC 
I2=I~MDC 

IF ( XBAP .GE.XI I l) .AND. XBAR.LE.XI 121 )  GO  TO  40 
20  CONT  INUE 
T  1=1 

I F ( ( MDC • EQ • 0. AND • XBAR.GE.XIMJ I . OR. I MDC. NE. 0. AND. XB AR.LE .X ( M I) I 
1  I  l=M—  1 
12=  1 1*1 

GO  TO  45 

r 

40  IFIN.GT.2I  GO  TO  60 
45  If-  (N.LT.2I  GO  TO  55 

50  YBAR*  YI  Ill+IXBAR— X(  Illi*(Y(  12  I-YI  I  1 )  I /C  X(  I  2 1 -X  ( 1 1 1  I 
RETURN 
C 

55  YB AR=  Y ( 1 1  I 

IF( ABSIXBAR-Xl 12  1 1 .LT.ABSI XBAR-XC Illl)  YBAR=Y I  121 
RETURN 

C 

60  J=  I-N/2 

I F (  I.LE.N/2+11  J=I 
IFl  I.GT.M-N/2)  J*M— N+ l 
NT  =  N+J- l 

C 

Dn  80  I=J »  NT 
ELL= 1 .0 
DO  70  K=J  t  NT 

IFIK.NE.I)  ELL’-FLL’M  XflAR-X(K)  l/IXC  I  l-X(KI  I 
70  CONTINUE 
80  YBAR=YBAR  +  ELL*YUI 
RETURN 


R1T0031 

R1T0032 

R1T0033 

R1T0034 

RIT00J5 

R1T0036 

R1T0037 

R1T0038 

RIT0039 

R1T0040 

EXT 0041 

R IT  0042 

R1T0043 

R1T0044 

R IT 0045 

R IT 00 46 

R IT 0047 

R IT 0048 

R IT 0049 

R IT 0050 

RIT0051 

R1T0052 

R1T0Q53 

RXTQ054 

R1T0055 

R1T0056 

R1T0057 

R1T005B 

R1T0059 

R1T0060 

R1T0061 

R1T0062 

R1T0063 

R1T0064 

R1T0065 

R1T0066 

R1T0067 

R1T0068 

R1T0069 

R1T0070 

P1T0071 

R1T0072 

R1T0073 

R1T0O74 

R IT 00 7 5 

R1T0076 

R1T0077 

RIT0078 

R1T0079 

R1T0080 

R1T0081 

R1T0082 

R1T0083 

R1T0084 

R1T0085 

R1T00B6 
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END 


R1T0087 

(UT0088 


CC  -  00058 
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FUNCTION  OLNT  I XB AR, Y8AR , X , Y , F , NX ,NV , NXMAX, LCX » LOT » 
DOUBLE  LAGRANGE  INTERPOLATION 
DIMENSION  X<  1),  Vm,F(NXMAXf  1»,FT(25) 

FRAR*0.0 

IFILOY.GT.25)  LOY-25 
LLX=LOX 

IF(LOX.GT.NX)  LLX«NX 
IF(NY.GT.l)  GO  TO  10 

CALL  LNTP  ( XBAR,F0AR, X,F( 1, 1) ,NX,LLX) 

GO  TO  30 

10  LL Y=LOY 

IFILOY.G  .NY)  LLY*NY 
DO  20  1*1,  NY 

CALL  LNTP  (XBAR,FTU»fX,F(  1,I»,NX,LLXI 
20  CONTINUE 

CALL  LNTP  (YBAR,FBAR, Y,FT,NY,LLV) 

30  DLNT *FBAR 

RETURN 

ENO 


R1T0090 
R1T0091 
R1T0092 
R1T0093 
R1T0094 
R IT  0095 
R IT  0096 
R1T0097 
R IT  0098 
R1T0099 
R1T0100 
R1T0101 
R IT  0102 
R1T0103 
R1T0104 
R  IT  0105 
R1T0106 
R1T0107 
R1T0108 
R1T0109 
R1T0110 
R1T011 1 
R1T0112 
R1T0113 
R1T0114 


CC  *  00025 
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o  o  u 


SUBROUTINE  TLNT ( XB AR, YBAR , ZBAR , F BAR .X  ,Y t Z ,F .NX , NY , NZ, NXMAX, NYMAX )  R1TQ116 

R1T0117 

TRIPLE  L INEAR  INTERPOLATOR  R1TU118 

R1T0119 

DIMENSION  Xfl),Ytl),Z(l)«F( NXMAX. NYMAX, 1 ) ,FT125 1  R1T0120 

c  R1T0L2L 

DO  10  1=1, NZ  R1T0122 

c  KIT0123 

10  FT  (  I  I  «  DLNT(XBAR,YBAR»X,Y,FI1»1,I)»NX»NY»NXMAX*2»2)  RIT0124 

c  R1T0125 

CALL  LNTP ( ZBAR, FBAR ,Z,FTtNZ«2)  R1T0126 

C  R IT 01 27 

RETURN  R1T012B 

END  R1T0129 

CC  *  00014 


t 
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c 

c 


c 

c 


CVERL  AY<1,0) 
PROGRAM  XINPT 

COMMON  /BLKPRT / 
COMMON  /BLKTIL/ 
COMMON  / BLKOV1/ 


20 


50 


70 


kprinti  501 
TITLE(6» 

IJ 


DIMENSION  W!4),  I  SI  12) 

DATA  W  /  4HF0RM,  4HNAME ,  4HSAVE «  4HEND  / 

IF(  IJ.GF.l  )  GO  TO  70 
CONTINUE 


READ ( 5, 1000 )  (TITLE(I),  I  *  1,6  ) 

IF  ( EOF ( 5  )  .NE.O  )  CALL  EXIT 

WR ITE  <6, 2000  )  (TITLE*  I ) *  1=  1.6  ) 

RE AD  <  5, 100 1 )  (KPRINTII),  1  =  1,50) 


DO  50  I  =  1,  50 
I F  (  KPR  INTU  ).GT.0 
CONT  INUE 
CALL  SFTUP 


I  WRITE!  6,2001 )  I,  KPRINTII) 


IJ  =  1 

RE  AD  I  5,  1002 )  WORD 

IF!  EOF! 5) .NE.O  )  CALL  EXIT 

WORD. EO. WC1)  I  CALL  OVE RL AY < 4H0 VL Y , 1 , 1 ) 
IJ  * 

CALL 
IJ  - 
CALL 
GO  TO 


IE! 

IF! 

IF! 

IF! 

IF! 

IF! 


W0RD.EQ.WI2) 
WORD.EQ.W! 2  ) 
WORD.EQ . W! 3 ) 
WORD.EQ.W! 3  ) 
W0RD.EQ.W14) 


1 

OVE  RL AY  I 4H0VL Y ,1,2) 
2 

OVE  RL AY! 4HQ VLY, 1 ,2  > 
20 


1000 

1001 

1002 

2000 


FORMAT!  6AI0  ) 
FORMAT!  5011  ) 
FORMAT!  A4  ) 
FORMAT  1 1HI,//// /, 

'  // 


27X,*EMPIRICALl Y  BASED  COMPUTER  PROGRAM*  // 
23X,*TO  PREDICT  THE  AERODYNAMIC  CHARACT ER I  ST 
35X,*nF  LARGE  AIRCRAFT*  110!/)),  27X,  6A10  ) 


2001  F0RMAT!5X,*KPRINT|*,I2,*) 


FND 


* ,  I  2  ) 


RIT0131 
R1T0132 
R1T0133 
R1T0134 
R1T0135 
R1T0136 
R1T0137 
R1T0138 
R IT 01 39 
R1T0140 
R1T0141 
R1T0142 
R1T0143 
R1T0145 
R1T0146 
R1T0147 
R1T0L48 
R.T0149 
R1T0150 
R1T0151 
R1T0152 
R1T0153 
R1T0154 
R1T  0  *55 
R1V0156 
R1T0157 
R1T0158 
RIT0159 
R1T0160 
R1T0161 
R1T0I62 
R1T0163 
R1T0164 
R1T0165 
RITOl 66 
R1T0167 
R1T016S 
R1T0169 
RITOl 70 
I CS*R1T  0171 
P1T0172 
R1T0173 
RITOl 74 
nvrm  75 


CC  =  00044 


non 


10 


20 


SUBROUTINE  SETUP 


ZEROES  OUT  INPUT  COMMON  BLOCKS 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

N2 

NXVAR 

NXCL 


DO  10  I  * 
AO  3 ( I  )  » 
IVAL  (  I  )  = 

I  F  (  I.LE. 
IP  I  I.LE 
1.-  (  I.LE 
IF  <  I.LE. 
CONTINUE 


A02( II  = 
IF(  I.LE. 
IE<  I.LE 
I  F  <  I.LE, 
IF!  I.LE, 
I F  (  I.LF 
I  F  (  I.GT, 
YM(I)  = 
Y  A  (  I  )  = 

CCNTINUE 


/BLKA01/  N ( 7 ) 

/BLKA02/  A02(433J 
/BLKA03/  403(20) 

/BLKA04/  N3( 3) i  A04I78) 

/BLKSUR/  N 1 ( 42  )  t  SUR(370) 

/BLKHLS/  N2,  HLS(70) 

/ BLK  A  OJ /  IVAL(20),X(15>,YM(135)  ,YA(135)  ,XCL( 15 ), NXVAR, NXCL 


R1T0177 

R1T0178 

R1T0179 

R1T0180 

R1T0181 

R1T0182 

R1T0183 

R1T0184 

R1T0185 

R1T0L36 

R1T0187 


30 


DO  30  I  = 

11 

12 
13 

A02 ( I  1 ) 
402(12)  = 
I F  (  I.LE 
CONT  INUE 

RETURN 

END 


LKG01/  G 1 ( 200 ) 

R1T0188 

R1T0189 

0 

R1T0190 

1 

R1T0191 

1 

R1T0U911 

R1T0192 

1,  20 

RIT0193 

0.0 

R1T0194 

0 

R1T0195 

,3  )  N3(  I)  =  0 

R1T0196 

.7  )  N ( I  )  =  0 

R1T0197 

.15)  X(I)  =  0.0 

RIT0198 

15)  XCL (  I  »  =  0.0 

R1T01991 

R1T0199 

RIT0200 

It  433 

RIT0201 

0.0 

R1T0202 

,41  )  N 1 (  I  )  =  0 

R1T0203 

,50  )  HLS(I)  =  0.0 

R1V0204 

,78  )  A04( I )  =  0.0 

RIT0205 

,140)  SUMI  )  =0.0 

R1T0206 

,200  )  GUI)  =  0.0 

RiT  0207 

,135)  GO  TO  20 

R1T0208 

1.0 

R1TU209 

0.0 

R1T0210 
R1T0211 
RIT 02 12 

'  1,  20 

R1T0213 

I  ♦  44 

R1T0214 

I  4-  204 

R1T0215 

I  4-  379 

RIT  0216 

:  1.0 

R1T0217 

=  i  .0 

kii 

,10  )  A 02(13)  =  1.0 

R1TQ219 
RIT  0220 
RIT  0221 
R1T0222 

R IT  0223 

CC  *  00049 
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U>  N7  UJ  FV->  >“"• 


c 

c 

c 


OVERLAY ( It  II 
S’ROGRAM  INPT 

PROBLEM  DATA  INPUT 

\ 

COMMON  /6LKAQ1/  NBODYS,  NNACS «  N^UP.FS,  NHT,  NVT,  ISWP,  NPNLS 
COMMON  /BLKA02/  SKEF,  AR ,  TAPR ,  SWPLE  , 

L  8LENI10),  BWIDIIO),  BHGT(IO),  BAMET(LO).  BCIIO), 

BNJdO),  BAMXdOI,  8ABSI10),  BLNSIIO),  BLBT(IO), 
BASE  (  101  t  ELENHOIt  EWID(IO),  EHGTI10I, 
EAWETdO),  EAMX110),  ElNtlO),  EXITdO),  ELNSUO), 
ELBTdO),  EOF  {  10)  t  ENOIIO),  CBARIIO),  TW, 

XLEWt  YWW ,  YB,  CP,  302,  BFUS,  FMISC,  AB,  AFTAW, 
CAM!  10)  i  TOCdO),  AWETdO),  SWMT,  SPLAN,  CCNCL, 
TWIST •  ETWIST,  WINC,  XLEIll),  CRWlll),  YW(ll), 
XPIVOT,  YPIVOT.  XAPEXt  AFTSW,  ATTCB.  AFTOC, 
SBAPdOI,  TSllOJ,  SCAMdO),  STOC(IO),  SAWET(IO), 
SMTSUI10),  SHF  (  10 )  ,  SWL110),  SWTI10I,  STAPR(IO), 
SCR (101,  HTLE,  HTY,  HTZ,  HTINC 

COMMON  /BLKA03/  ROUGHK  ,CLE  (  3)  ,CCR( 3)  , YCI3)  » XCG  ,  ZCG  ,  CMAC  ,  I  REF, Ai 16 
COMMON  /BL< A04/  IHLS,  NF ,  NS,  FLAP,  SLAT,  DF(5»,  CFGCI5), 

OCLOF ( 5 ) ,  DCLMF (51,  DC0F15),  DCH0FI5), 


DSl  i> )  ,  CS0CI5),  DCL0S15),  QCLMSI5), 
DCMOS (51,  Bfil,  BFLO,  CFlill,  BF2I, 
BS1I,  BSIO,  CS1,  BS2I ,  BS20,  CS2 
COMMON  /BLKA05/  XMU , ZMU s XML ,2 ML , Z PTE , ZTH I C K , 

RLE,  OTE,  DY,  XMT ,  DYC  , 

CIMAX,  CLMCRdO),  XMCRI  10)  , 

XT ( 33  I  ,  YTI 33) ,XYC( 33)  ,  NMCR ,  NXSET 


DCDS15 ), 

BF20 ,  CF2I3) , 


COMMON  /BLKSUR/ 


1 

2 
3 

< 

1 

2 


COMMON  /BLKHLS/ 


NSURV,  NCLAS,  IT120),  ITRMI20),  FMSURV120 ) , 

ALT ! 20) ,  DHSVI20),  SWPV (20) ,  CLL0I2O),  CLHII20), 
TRBI5.10),  TRNI 5, 10) *  TRUI5.10),  TRL(5,*10), 

TRS( 5, 10) 

NHLSV,  DFI(3,B),  CPFI5),  DSII5),  CPSI5)  , 

DELCDI 5  )  ,  HI  5  ) ,  OFI2I3.5),  CPF2I5),  OS  I  2  €  5  )  , 
CPS2I 5) 


COMMON  /BLKADJ/  I VAL ( 20 ) , X(15 ) , YM< l 5 , 9) ,YA1 1 5 ,9 ) ,XCL( 15 ) , 

1  NXVAR ,  NXCL 

DIMENSION  WdO),  TTTI22),  TS1I10),  TS3dO> 

DATA  W  !  4HPLAI,  4HS.  S. ,  4H0.S.,  4HT.S.,  4HINPU,  4HL.E., 

L  4HSLAT,  4HKRUF,  4HINPU,  4HA0JU/ 

DATA  TTT  /  3H63- , 3H64- , 3H65- , 3H66- , 3H63A , 3H64A ,3H65 A ,3HSUP, 3HB IC 

1  3H-62, 3H-63, 3H-64.3H-65, 3H-66  ,3H-33 , 3H-34 ,3H-3  5,3H-93 

2  3H- 94, 3H- 95 , 3HI NP , 3H21 N  / 

DATA  TS1  t  10+0.0  /,  T S3  /  10+  0,0  ( 

CONFIGURATION  DEFINITION 

100  READI5, 1001 )  NBOOYS,  NNACS,  NSURFS,  NHT,  NVT,  ISWP,  NPMS  ,  IHLS, 

1  IREF 

WRITE (6, 2000)  NBODYS,  NNACS,  NSURFS,  NHT,  NVT,  ISWF,  NPNLS 


R1T0225 
R IT  0226 
R1T0227 
R IT  0228 
RIT0229 
R1T0230 
RITQ231 
R1T0232 
RIT0233 
R1T0234 
R  IT 02  J5 
R1T02 36 
R  IT 02  37 
R  IT  02  38 
KIT  02  39 
R IT  0240 
R IT  0241 
R  IT  02  42 
R1T0243 
) R IT0244 
R1T0245 
R1T0246 
R1T0247 
R IT  0248 
R1T0249 
R1T02T 0 
R1T0251 
R1T0252 
R1T0253 
R1T0254 
RIT0255 
P IT  02  36 
R IT  02 5 7 
RIT0258 
R IT  0259 
PIT  0260 
R1T0261 
R1T0262 
R1TOZ63 
R1T0264 
R IT  0265 
R  IT  0266 
R IT  0267 
R IT  0268 
R IT  0269 
, R1T0270 
, R IT  0271 
RIT0272 
R1T0273 
R IT  0274 
R1T0275 
R1T0276 
R1T0277 
RIT0278 
R1T0279 
R IT  0280 
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READ (5. 1000 )  SREF*  CMAC,  XCG,  ZCG,  RQUGHK,  FMISC 
WRITEI6, 2001 )  SREF,  CMAC,  XCG,  ZCG 
C 

I F«  N80DYS.EQ.0  )  GO  TO  120 
DO  110  1  *  1,  NBODYS 

READ (5,  1000 )  BLENI  II,  BWID(I),  BHGT(I),  BAWETII).  BQ(I),  8N0( I ) 
IF(  I.EQ.l  >  READ(  5, 100B I  BAHXII) ,  BABSUt,  BLNSII  * ,  BLBTU), 

1  BASE!  I),  BF US ,  AB 

I F  (  I.NE.l  i  REA0I5, 10001  BAMXC  I)  ,  BABS(I),  BLNS(I)  ,  BLBTU), 

1  BASE(I) 

C 

I F  (  BOm.EQ.O.O  )  Bom  *  1.0 
I F  (  BMO(I).EO.n.O)  IINOU)  >1.0 
I F <  I.EQ.l  )  WKITE16, 2002) 

WRTTF (6,2003)  I, BLENI I ) » BWIDI I ) , BHGT I 1) .BAWETI I) ,BAMX(l ) , BABS(l) , 
1  BLNSI  I),BLBT(I),BASE(l),BQ(ll,  BNOU) 

C 

110  CONTINUE 
C 

120  I F (  NNACS.EQ.O  )  GO  TO  140 
DO  130  I  »  1,  NNACS 

READI5, 1000)  ELEN  I  1 ) ,  EWIDIU,  EHGTCI)  ,  EAWET(I),  EQF(I),  ENO(I) 
READ  ( 5,  1000 )  EAMX(I),  EINUJ,  EXIT(I),  ELNSUI,  ELBT(l) 

C 

I F  (  EaFUl.EO.O.O  )  EQF(I)  *  1.0 
I  Ft  ENOm.EQ.O.O  )  ENO(I)  =  1.0 
I F (  I.EQ.l  )  UR ITE( 6, 2004 ) 

WRITE  (6,  2003)  1 ,  ELENI  1)  ,  EWlDt  I  »  ,EHGTII)  ,  EAUE  Y(  I  )  ,EAMXU)  ,EINU) , 

L  EKITI  I),ELNS<  I),ELBTCI)  ,EQFU),  ENOU) 

C 

130  CONTINUE 
C 

140  IFI  NPNLS.GT.l  )  GO  TO  145 

READ  15,  1000 1  AR,  TAPP,  SWPLE,  SPLAN.  TWIST,  WINC 
WRITE<6, 2006)  AR,  TAPR,  SWPLE,  SPLAN,  TWIST,  WINC 
READ (5,  1004  )  TW 1, TW2, TW3,CAM! 1 ) , TIK  ( 1 )  , XLE W  , YWW  ,  YB 
RE.'DIO,  1000)  SWMT,  CBAR(l),  AWET(l),  CGNCL 
C 

WRITF (6, 2008 )  TWi,TW2,TW3,  CAMli),  TOCll),  XLEW,  YWW,  YB, 
l  SWMT,  CBAR(l),  AWET(l) 

GO  TO  160 
C 

145  PEAn(5,l0001  SPLAN,  TAPR,  SHPLE 

READ(5,  1004 )  TW1,TW2,TW3,  TWIST,  WINC,  SWMT,  CONCl. 

WR  ITE  I  6, 2009  )  TW1,TW2,TW3,  TWIST,  WINC,  SWMT 
IF <  ISWP.GT.O  )  WRITE (6, 2010)  SPLAN,  TAPR,  SWPLE 
C 

DO  150  I  =  1,  NPNLS 

*FI  I . El. 1  )  WRITEI6. 2011) 

.<E  AD  1  5 ,  x008  )  CAM(I),  TOC  (  1  )  ,  XLEI  I  )  ,  7WII)  ,  CRWU)  , 

1  CBARCI),  AWET(I) 

WRITE  (6,  200.’  )  I,  CAM(I),  TOCII),  XLE(I),  YWII),  CRWU), 

1  CBAR(l),  AWETUI 

C 

150  CONTINUE 

I  *  l  ♦  NPNLS 


R1T0281  ! 
R1T0282  j 
RIT0233  I 
R1T0284 
R1T0285 
R1T0286  ] 
R1T0287  ! 
R1T02B8  j 
RIT0289  j 
KIT  0290 
HIT  029 1  , 
R1T0292  j 
R1T0293  1 
RIT 02 94 
R1T0295  i 
KIT 0296  , 
R1T0297  | 
K1T0298  1 
R IT  0299  ; 
R1T0300  ; 
R1T0301  j 
RiT  0302 
R1T0303  | 
KIT 0304  j 
RLT0305  1 
R  11*0306  j 
RiT, 0307  j 
R1T030B  j 
RIT  0309 
RIT  0310 
R1T03I1  1 
R1T0312 
K1T0313  I 
R1T0314  ! 
R  IT  0315  j 
K1T0316  , 
R1T0317 
R1T0318  1 
RIT 03 19  j 
R  IT  032'0 
RIT  032*1 
R1T0'322 
KIT 0  3 23  ’ 
K IT 0324  i 
RIT  0325  j 
R IT 0326  i 
KIT  0327 
R IT  0328 
RIT  0329 
R1TQ330 • 
R1T0331  ; 
R1T0332 
RIT  0333 
R!  T0334 
R1T0335] 
R  I  T  0  *  U, 


o  u  u  u  u  ouu 


c 

c 


c 


c 


c 

c 


REAC ( 5,  1000  )  XL  E  C  I )  ,  YW(I),  CRMI! 

WRITE<6,2012)  XLECI),  VW  (  X  1  .  CRWCI) 

160  I F  (  TW1 .20.  TTT  (  8 1  I  READ<5,1000)  XMU,  ZMU ,  XPL  , /ML  .  ZPTE  ,  2TH ICK 

I F  C  TW1.EQ.TTT ( 21 )  .OR .TW1.EQ.TTTC 221  »  READC5.1000) 

1  RLE,  OTE.  OY,  XMT*  DYC,  CIMAX 

I F (  TW1.EQ.TTT  (21)  )  READC5.1009)  NXSET,  I  XTCI),  YT(I), 

1  XYCCII.  I  *  l.NXSFT  I 

I F  {  TW1.E0.TTTC  22)  I  RFADC5.1009)  NMCR.  (  CLMCR(l). 

1  XMCRCi  ,*  i  I  -  It  NMCR  ) 

I F  <  ISWP.EO.O  >  GO  TO  170 

READ ( 5t  1008  )  XPIVOT.  YPIVOT,  XAPEX,  AFTSW.  AFTC8.  AFTOC,  AFTAW 

170  IFC  NSURFS.LE.l  )  GO  TO  185 
on  180  I  =  2,  N SURFS 
J  =1-1 

IFC  J.EO. 1  J  WRITEC6.2013J 

READ ( 5 1  10  04 )  TS 1 ( J ) , T S2  ,  T S3  {  J 1 ,  SCAMIJI,  STOCCJ),  SMTSWCJJ, 

1  SHFCJ) 

READ  C  5 1  1000  J  SWLCJ),  SWTCJ),  STAPPCJ),  SCRCJ),  SBAKCJ),  SAWETCJ) 
WRI TE  C  6r  200  7 )  TS1 C J I . TS2. TS3C J I ,  SCAMC J ) , STOC l J) , SMTSW C J)  , 

1  SHFCJJ.SWLC JJ ,SWTC J> ,STAPRC J) , SCRCJ) . SBAKCJ) , 

2  SAWETCJ) 

IFC  NHT.NE.O.ANO.  J.FO.l  I  READC5,  1000)  HTLE,  HTY,  HR,  HT I NC 
180  CONTINUE 

165  IFC  NPNLS.LE.2  I  GO  TO  190 

RE AO  C  5,  1000 )  (CLECI).  YC C  I I  ,  CCRCI)  ,  I  =1,3) 

190  CONTINUE 


H  IGF  LIFT  SYSTEM  GEOMETRY  IS  READ  IN  IF  IHLS  GE  1 

200  IFC  IHLS. EG. 0  )  GO  TO  205 

READ  C  5  ,  10  07)  FLAP,  -SLAT,  r:F  ,  NS 

READ  ( 5,  1000 )  BF1I,  BF10,  CFl(l),  BS1I,  t)S10,  CS1 
IFC  IHLS.EQ.2  )  READ! 5, 1000 )  BF2I ,BF20,CF2C 1 ) ,BS2I ,BS20,CS2 
IFC  FLAP. EQ.WI31. OR. FLAP. E0.WC4)  )  READC5.1000)  CFIC2),  CF1 (3) , 
1  CF2C2),  CF$(3I 

IFC  FLAP.EQ.WC5)  )  REA  DC  5 , 10*00  )  CDFCI),  CFCCCI),  DCLOFCII. 

1  DCLMFCI),  OCDFCI),  DCMOFCI),  1=1, NF  ) 

IFC  SLAT . EO.WC  5) I  R  EA  DC  5 , LOOO )  COSCI),  CS0CII1,  DCLOSCII, 

1  DCLMSCI),  OCDSCI),  DCMDSCI),  1=1, NS  ) 


R1T0337 
R1T0338 
R1T0339 
RIT0340 
R IT  034 1 
R1T0342 
R1T0343 
R1T0344 
R1T0345 
R IT  0346 
R IT  0347 
R IT  0848 
R1T0349 
K1T0350 
R1T0351 
R1T0352 
R1T0353 
R1T0354 
R1T0355 
K1T0356 
R1TJ357 
R1T0358 
R IT  0359 
R  1 T  0360 
R1T0361 
R1T0362 
R1T0363 
R1T0364 
K1T0365 
R1T0366 
R1T0367 
R IT  0368 
R  IT  0369 
R1T0370 
R1T0J71 
R1T0372 
R1T0373 
R1T0374 
R1T0375 
R1T0376 
R1T0377 
R1T0378 
R1T0379 
R1T0330 
R1T0361 
KIT  0382 
R1T0383 


PROBLEM  CONTROL 

205  RE AD  C  5,  1003 )  NSURV,  NHL  SV ,  NC  LA 
IFC  NSURV. EO.O  )  GO  TO  220 
WRITF  C6, 2014)  NSURV 
DO  210  I  =1,  NSURV 
READ  (5,  1000  )  FMSURVCH,  ALTCI), 
IFC  ITRMUI.FU.O  )  WP  ITF  C  6,  2015 


R1T03B4 

R1TC385 

R1T0386 

,  I  ITC  n  ,1=1  ,20),  C  ITRMU),I  =  1,20)R1T0387 

R1T0338 

R1T0389 

R1T0390 

DHSVC  I  )  ,  SWPVII),  CLLOII),CLHim  R1T0391 
FMSURVCI) ,  ALT(I),  DHSVC  I),  RIT039Z 
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o  o  o 


1  SMPV( I ) v  C LL 0( I )  ,  CLHI ( I ) 

I F  {  ITRMI  I  )  .tU.l  )  WRITE16»2016)  FMSURVII),  ALTUI,  SWPVtl), 
1  CLLOI  I  }  ,  CLHIC  I  ) 

210  CONTINUE 


B.L.  TRANSITION  LOCATIONS  ARE  READ  IN  FOR  EACH  COMPONENT 


C 

c 


J1  =0 

DO  215  I  =  I,  NSURV 

I F (  IT  C  I ).EQ.O  J  GO  TO  215 

j  *  mu 

I F (  J.LE.J1  )  GO  TO  215 
I F <  NBODVS.GT .0  I  READI5.1000) 
IM  NNACS.GT.O  I  READI5,1000) 
I F (  NPNLS.GT.O  I  READ(5,10C0) 
I F (  NSURFS.GT.OJ  REA0{5,1000) 
J  1  *  J 

215  CONTINUE 


220  I F I  NHL  SV .  EQ.  0  I  GO  TO  250 
On  230  I  *  1.  NHL  SV 
NDF  =  1 

IF!  FLAP.E0.W13J  >  NOF  «  2 
I F  <  FL AP.EO.WI A )  I  NOF  =  3 


ITRBIJ.K),  K*1 1 NBQOY S J 
(TRN(J.K),  K-l.NNACSJ 
URUIJ.K) ,TRLC J,K) , K-l.NFNLS) 
ITRSIJ.K)  ,  K  =2,  NSURFSJ 


READI5,  1000  J  (OFIU.IJ.  J*  1  tNDF  )  ,  CPFII),  DSIII),  CPSII), 

1  DEL  CD  I  I  ) ,  HU) 

IFI  IHLS.EQ.2  )  READ ( 5* 1000)  tDFI2IJ.l),  J*l,NDFi,  CPF2II). 
1  DSI2I  I  I,  CPS2I I ) 

230  CONTINUE 


r 

c 

250  RE  AC l 5,  1005 )  WORO.  WRO 

IFI  WOPD.EQ.WI 10) )  GO  TO  260 
GO  TO  270 

260  READ ( 5,  1006  )  IIVALII),  1  =  1,20),  N  X VAR ,  NAD J ,  NXCL,  NADJ2 
If INXVAR.EU.OJ  GO  TO  266 
RE  AC ( 5,  1000 )  l  XII),  I  =1,  NX  VAR  ) 

DO  265  I  =  1,  NAD J 

RE  AD  I  5 , 10C0 )  I YM( J,  I  )  ,  YA(J,!),  J=  l,  NXVAR  ) 


265  CONTINUE 

266  IFI  NXCL.EO.O  )  GO  TO  ’68 
READ  1 5,  1000)  I  XCU  I),  I  *1, 
CO  267  I  =  1,  NADJ2 

READ  15, 1000)  ! YMI J , NXVAR *  I ) , 

267  CONTINUE 
26B  CONTINUE 

RE  AC  I  5,  1005 )  WORD,  WRO 


NXCL  ) 


C 

270  WRITE  16, 2005)  WORD,WRD 
C 
C 

A  =  1 -,/57. 2957756 

B  =  1./ 12. 

C  =  1./1A4. 


R IT  0393 
RIT03S4 
R1T0395 
R1T03SS 
R1T0357 
R1T039B 
R1T0399 
R IT 0600 
R1T0401 
R1T0402 
R1T0403 
R1T0404 
R IT 040 5 
R1T0406 
R IT  0407 
R1T0408 
R1T0409 
RIT0410 
R1T0411 
R1T0412 
R1T0413 
R  IT  0414 
R1T0415 
R l T  0416 
R1T0417 
R IT  04 18 
R1T0419 
R1T0420 
R1T0421 
RIT0422 
R1T0423 
R1T0424 
R  IT  0425 
R1T0426 
R1T0427 
R IT  0423 
R1T0429 
R1T0430 
R1T0431 
R1T0432 
R IT  0433 
R1T0434 
R1T0435 
RIT0436 
R1T0437 

n 1 r  aa  a  a 
T4  &  I  W»  JU 

R IT  04  39 
R IT 0440 
R1T0441 
R IT  0442 
R IT  0443 
R IT  0444 
R IT  0445 
R1T0446 
R1T0447 
R IT 0448 
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c 


c 


c 


PIT  0449 

SWPLE  =  SWPLE  *  A 

R IT  0450 

SWMT  =  SWMT  *  A 

R IT  045  1 

AFT SW  *  AFTSW  *  A 

R1T0452 

CO  300  I  -  It  10 

R1T0453 

SMTSWI  I  1  =  SMTSWt  1) 

*  A 

R1T0454 

SWLIII  *  SWL  (  1 1  * 

A 

R1T0455 

SWT  <  I)  =  SWT  <  I  >  * 

A 

R  IT  Q4i»o 

CONT  INUE 

R IT  045  7 

R  IT  045  S 

XPIVOT  =  XPIVOT  * 

a 

R1T  0439 

YP1V0T  =  YP I VOT  * 

B 

R IT  0460 

XAPEX  =  XAPEX  *  B 

R IT  046  1 

AFTCO  =  AFTCB  *  B 

R  IT  046  2 

HUE  =  HTL E  *  B 

R1I  0463 

MY  =  HTY  *  B 

> 

R1T0464 

MT  Z  -•  HTZ  *  B 

R1 r  0465 

CM AC  =  CM AC  *  B 

R1T0466 

XCG  =  XCG  *  B 

R1T 0467 

ZCG  *  ZCG  *  B 

R1T0468 

XL  FW  =  XL  EW  *  B 

R1T0469 

YWW  =  YWW  *  B 

R1T0470 

YB  =  YB  *  B 

R IT  04  7  1 

CR  =  CP  +  B 

R1T04/2 

B02  =  BO  2  *  B 

P IT  047  3 

CO  310  I  =  1,  10 

R IT  04  74 

BLENJ!  1  =  BLENU1 

• 

e 

R1T0475 

BWIO(I)  =  BWIDdl 

* 

B 

R1T0476 

BHGT ( 1 )  =  BHGTl I ) 

* 

B 

R  IT  04  7  7 

BLNS  CI>  =  BLNS (  I 1 

* 

B 

R IT  04  7<3 

BLOT  (I)  =  BL  BT  (  I  ) 

* 

B 

R1T0479 

ELEN  < I  1  =  ELENII) 

* 

B 

R1T0480 

EW  10(1  )  =  EWIDI  I  J 

* 

B 

R1T0481 

EFGT ( I)  =  EHGT ( I ) 

* 

B 

R1T0482 

ELNS (I>  =  ELNSl  I  J 

* 

B 

R IT  048  3 

ELBT  (  I  )  =  EL  BT (  I  ) 

* 

B 

R1T0484 

CBARU  )  =  C8ARI  I) 

* 

B 

R1T0485 

XLE  (  I  )  =  XLF<  U 

♦ 

B 

R1T0486 

crw(I)  =  cr.wm 

* 

t. 

R1T  0487 

YW (  I )  =  YW(  I) 

* 

r 

R1T04B3 

SBAP.U5  =  S  B  AR  (  1 1 

♦ 

B 

R IT  0489 

SCR ( 1  1  =  SCR ( I > 

* 

B 

R1T0490 

CONTINUE 

4 

R1T0491 

XLE(ll)  =  XLE111I 

* 

B 

PIT  0492 

CRW (  11  1  =  CRW ( 11  ) 

* 

B 

R1T0493 

YW(111  =  YW (  111 

* 

B 

R IT  0494 

00  315  I  =  1 1  3 

R1 f  049  5 

CL  Ed)  *  CL  E  III  * 

B 

R1T0496 

CCP(I)  =  CCP ( I 1 

* 

R 

RIT0497 

YC(  I )  =  YC(  I)  * 

B 

KIT  0493 

CONT  INUE 

R1T 0499 

R1T  0500 

DO  320  I  =  It  10 

R1T0501 

B AMX ( I )  *  BAMX( I ) 

* 

C 

R1T05O2 

BABS ( 1 )  =  BABS (  I  ) 

* 

c 

R1T050  J 

BASE ( I )  =  BASEl  I  ) 

c 

R1T0534 
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2009  FORMAT! 
1 

2 

2010  FORMAT  i 

1 

2011  FORMAT 
1 

2 

2012  FORMAT 

2013  FORMAT 
1 

2 

3 

2014  FORMAT 
10  IT  ION 
2 

2015  FORMAT 

2016  FORMAT 


♦  TH1CKNPSS  **F8.4  /5X,  *Wl  NG  LOCATION  U,YI  *  *» 
2F12.4,*FUSLAGE  INTERSECTION  -*F9.4  /5X, 

♦MAX.  THICKNESS  SWP.  =*F 7. 3 ,5X, *CBAR  ■4F8.4.5X. 

1/  5X*»*AIRF0IL  TYPE  **»2X,A3,A1,A3,5X»*TWIST  =*F7.3,*  DEG 
5Xf*  INCIDENCE  **F7.3»*  0EG.*»5X»*MAX.  THICKNESS  SWP.  *  t 

( 5X»* VARIABLE  GEOM.  WING  PLANFORM  AREA  »*F9.3,*  SQ.FT.*, 
5X,*TAPER  RATIO  **F6 . 4, 5X, *L. E . S WEE P  «*F.’.3,*  DEG.*/  1 
(/5X,*WING  PANEL  GE0METFY*/T3,*N0.* ,T10, ‘CAMBER*,  T20, 

*T / C* ,  T30,*XLE*.  T40, *YW*«  T50,*CRW*»  T60,*CBAR*, 
T70,*AWET*  /  1 

</5x!*GE0METRY  FOR  ADDITIONAL  AIRFOIL  SURFACES*  / 
T2,*AIRF0  IL  *,  T15 ,*CAMBER*,  T25,*T/C*»  T35,*SMTSW  . 

T45, *  SHF* ,  T55,*L.E.SWP*»  T65 , *T . 6 . SWP* ,  T75,*TAPER*. 
TB5,*CK*»  T95,*' SBAR* ,  T105»*SAWET*  /  » 

C//5X,  15,*  ORAG  °OLARS  TO  BE  GENERATED  AT  THE  FOLLOWING 
IS*  /T5»  *M ACH  NO.*  c  T20. ‘ALTITUDE *,  T35,*TAIL  SETTING*, 
T53.*L.E. SWEEP*,  T70,*FR0M  CL*,  TB5,*T0  CL*  /  > 

(  F 15. 4,  5F15.31 

r (  F 15. 4,  F15.3.15H  TRIMMED,  3F15.31 


R1T0561 
R1T0562 
R1T0563 
R1T0564 
.* , R1T0565 
R1T0566 
R1T05GI 
R1T0568 
R1T0569 
R1T0570 
R1T0571 
KIT 05 7 2 
R1T0573 
R1T0574 
RIT0575 
R1T0576 
R1T0577 
C0NR1T  0578 
RIT0579 
RIT0580 
R1T0581 
Rl  f 0582 
R1T0583 
RIT0584 
R1T0585 


CC  *  00361 
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OVERLAYl  1.  2i 
PROGRAM  NINPT 


READS 


UT  WITH  A  NAMELIST  FORMAT 


COMMON  /BLKOVl/  IJ 
COMMON  /BLKAOL/  NBODYS, 
COMMON  /8LKA02/  SRFF*  A 


NBODYS,  NNACS,  NSURFS,  NHT ,  NVT ,  I  SUP,  NPNLS 
SRFF,  AR,  TAPR,  SWPLE  , 

BLEN(IO),  BMIDI 10 1 ,  BHGT(IO) ,  BAWETI101 ,  BQIIOI, 
BNO (  ’  01  ,  BAMXI 10)  ,  BABSIIOJ,  BLNSUOl,  BLBT(IO), 
BASFl  10) ,  ELEN(IQ),  EWIDUO),  EHGT(IO), 
FAWFT(IO),  EAMX(IO),  EIN(iO),  EXIT(IO),  FLNSCLOI, 
EIBT<10),  EQF410),  ENOt LO) ,  CBAR(IO),  TW, 

XL  EM,  YWW ,  Y6 ,  CR,  B02,  BFUS,  FMISC,  AB*  AFTAM, 
CAM(IO),  T0CC1QI,  AMETI10),  SWMT,  SPLAN,  CONCL, 
TWIST,  ETWIST,  WINC,  XLE(ll),  CRW(ll),  YW ( 11 J , 
XPIVOT,  YPIVOT,  XAPEX,  AFTSW,  AFTCB,  AFTOC, 
SBARdOl,  TS(  101  ,  SCAM(IO),  STOC(IO),  SAWFTllO!, 
SMTSMI  10  I ,  SHF  (  10 )  ,  SWL(IO),  SWT(IO),  STAPRUO), 
SCRI10),  HTLF,  HTY,  HTZ,  HTINC 


R1T0587 
R1TQ588 
R1TQ589 
R1T0590 
R1T0591 
R1T0592 
R1T0593 
R1T  0594 
R1T0595 
R1T0596 
R1T0597 
RIT0598 
RU0599 
R1T0600 
RIT0601 
R IT  0602 
R1T0603 
R1T0604 
R IT  0605 
R1T0606 


COMMON 

COMMON 


/3LKA03/ 

/0LKAO4/ 


ROUGHK , CLE ( 3) ,CCR ( 3 ) , YC 1 3 ) , XCG ,ZCG ,CMAC , I  REF , A1 (6 1 R1T0607 


IHLS,  NF,  NS,  FLAP,  SLAT,  DF(5>,  CF0C(5I, 

OCLOF (51,  DCLMFI5I.  DCDFI5),  DCM0FI5), 

DS( 5) ,  C  SOC (51,  OCLOS ( 5 ) ,  DCLMSt  5 ) ,  DCDSI5), 
DCM0S15I,  BF1I,  BFIO,  CF113),  BF2 I ,  BF20,  CF213), 
BS1I.  BS10,  CS1,  BS2I,  BS20,  CS2 


COMMON  /BLKSUR/  NSURV,  NCLA  S,  ITI20I,  ITRMI20I,  FMSURV ( 20  *  » 

L  AL T ( 20 1 ,  0HSVI20),  SWPVC20) ,  CLL0120J,  CLHI 1201 , 

l  TRBfStlOI.  TRNC  5, 10 1 ,  TRUJ5,10),  TRLC5,10», 

3  TRS(5, 10) 

COMMON  /BLKHLS/  NHL  SV,  DFH3.5).  CPFC  51  ,  DSK5I,  CPSI5I, 

L  OELCD (51,  H ( 5 1 ,  DFI2(3,5»,  CPF2I5),  DSI2I5), 

l  CPS2i 5 ) 


COMMON  /BLMDJ/ 
l 

COMMON  /BLKTIL/ 
COMMON  /BLKPRT/ 

DIMENSION  L ( 9) 

NAMEL I  ST/ 0ODYS/ 


IVAL(20»,X( 15), YMl 15,91 ,YA( 15,9), XCL( 151, 
NX  VAR  ,  NXCL 
TITLEI6J 
KPR  INTI  501 


BODYS/  NBODYS, NNAC S, NSURF S, NHT, NVT, I SWP, NPNLS, CMAC, I  REF,  R1T0630 
SREF, ROUGHK  ,XCG,ZCG,BFU$,AB,EMIsr. ,BLEN,BHID« BHGT ,  R1T0631 
B AWET,BQ, BNO, B AMX , B ABS , BLNS , BLBT , BASE/  R1T0632 

NACEL/  NNACS, SREF, ELEN, E HI D,EHGT,E A WET , EOF, END,  R1T0633 

FAMX,EIN,EXIT,ELNS,ELBT/  R1T0634 

WING/  NSURFS, ISWP, NPNLS,  AR ,T APR , S WPLE , SPLAN , TW I  ST ,  R1T0635 

WINC,TW,CAM,TOC,XLE, YW,CRW,C BAR, AWE T, SWMT, CMAC,  R1T06  3& 

XPIVOT, YPIVOT, XAPEX, AFTSW, AFTCB, AFTOC, SREF, AFT AW,  R1T0637 
CL E, YC, CCR, XLFW, YWW, YB,CR,B02, XCG, CONCL/  R1T0633 

SURFS/  NSURFS, NHT, NVT, SREF,  SB AR , TS , SCAM, STOC, SAWET ,  R1T0639 

SMTSW, SHF, SWL, SWT, STAPR, SCR, HTLE, HTY, HTZ, HTINC/  R IT 0640 

SURV /  NSURV,  NCLA  S ,  NHL  SV ,  I T , I TRH . F MSUR V , ALT , DHS V,SWPV , R IT0641 
CLLO.CLHI , fRB ,TPN,TRU,TRL,TRS,DFI , CPF,DSI ,CPS,  R1T0642 


R1T060B 
R IT 0609 
R IT  06 10 
R1T0611 
R1T06 12 
R1T0613 
R IT  06  14 
R1T0615 
HIT  06 16 
P.1T06I7 
R1T0618 
R1T0619 
R1T0620 
R1T0621 
R IT 0622 
R1T0623 
R IT  0624 
R1T0625 
R IT  0626 
R1T0627 
R1T0628 
R IT 0629 
R IT  0630 
R IT  0631 
R IT 0632 
R IT 0633 
R1T0634 
R IT  0635 
R  IT  06  36 
R IT  06  37 
R IT  06  33 
R1T06  39 
R IT 0640 
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e 

DELCOfHfDF! 2, CPF2 , DSI 2 , CPS2 , KPR I  NT / 

R1T0643 

C  STOL/ 

IHLS,NF,NS,FLAPf SLATfDFfCrOC,DCLOF,DCLMF,DCOF, 

RIT0644 

0 

DCMOF , 0 S« C SOC , DC L OS ,DCL  MS  , OCDS , OC MCS , BF 1 1  , 

R1T0645 

E 

BF10,CF1,8F2I,8F20.CF2,BS11 ,BS10,CS1,BS2I , 

R IT 0646 

F 

BS20,CS2,H,DFI2fCPF2,0SI2,CPS2/ 

R1T0647 

C  ADJUST/ 

IVAL,  NXVAR ,  NXCL ,  X,  XCL,  YM,  YA 

R1T0648 

C 

R1T06  49 

DO  100  I  •  If 

9 

R1T0650 

Kll  -  1 

R1T0651 

100  CONTINUE 

R1T0652 

C 

R1T0653 

call  conv 

R1T0654 

1 E (  IJ.EQ.l  ) 

GC 

I  TO  200 

R IT 065 5 

RFAC ( 5* 1000) 

IT  ITLE (Ilf  I  -1,6) 

A1T0656 

READ! 5f 1001) 

(L(  I  I,  I  -  1,9) 

RIT0657 

C 

ALT  0658 

200  IF!  L(l).EQ.l 

) 

READ! 5, 800YS) 

RIT0659 

IF  1  L(2).E0.1 

1 

READ! 5, NACEL 1 

R IT  06 60 

IF(  L ( 3  )  . EQ. i 

) 

READ(5, WING) 

A1T0661 

IF (  LI4S.F0.1 

) 

R  EAO! 5, SURFS) 

R IT 0662 

IF  <  L ( 5  I «  EQ. 1 

1 

READ! 5, SURVI 

R1T0663 

IF (  L(6lcEQ.l 

) 

READ! 5, STOL) 

R1T0664 

IF {  L(7».E0.1 

1 

READ! 5, ADJUST) 

R1T0665 

C 

R  IT  0666 

WRITEI6, 2000) 

RIT0667 

C 

R I T  06  68 

CALL  CONV 1 

R1T0669 

C 

R1T0670 

350  CONTINUE 

R1T0671 

1000  FORMAT (  6A10 

5 

R1T0672 

1001  FORMAT!  5011 

1 

R  IT  06  73 

2000  FORMAT !5X,*NAMEL  1ST  INPUT  COMPLETED*  ) 

R  IT  06  74 

c 

R1T0675 

END 

R1T0676 

CC  «  00090 
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o  n  o 


SUBROUTINE  CONV 


CONVERTS  INPUT  DATA  TO  FEET  AND  RADIANS  UNITS 


C 

C 

c 

c 

c 

c 

c 


c 


c 

c 


COMMON  /BLKA02/  A  1(  433 ) 

COMMON  /BIKA03/  A2I20I 

DIMENSION  81(433),  62(20) 

on  ioo  i  >  I,  20 

100  82(  1)  -  A2 (  I ) 

DO  200  I  -  1,  433 
200  B 1 (  I  )  -  All  I) 

RETURN 

ENTRY  CONV 1 

A  ■  1. 757.2957796 

B  -  1./12. 

C  -  1*/ 144. 

I F I  A 1 1 4 1 «NE  «B 1 ( 41  )  All  4)  «  Al(4)  *  A 
IF  (  A1(275).N£.B1(275)  )  A11275)  -  AH275)  *  A 
IF(  All  317). NF«B1( 3171  )  Al(317)  -  A11317)  *  A 
00  300  I  -  1,  10 

IF(  All  369*1  l.NF.BM  369*1  I )  41(369*1)  »  A1(369*I)*A 
If(  A1138941 ),NE. 81(389*1))  AK3694I)  »  A1(389*I)*A 
I  F  l  Al(399*I >.NE. 81(399+1 )  )  41(399*1)  *  A1(3994I)*A 
300  CONTINUE 

On  400  I  -  l,  10 

IF (  AM224+I  ).NE.B1(  224*1  I)  Al(2244l>  •  A1I2244I)  *  B 

IF(  All  31941  I. NE. 01(31941 ))  A  1 ( 31 94  I )  -  A113194I)  *  B 

IF(  AK4194I  J.NE.  81(41941  ))  AK4I94I)  -  Al(4194l)  *  B 

I F (  Al(  10441  ).NE.B1(  10441))  AM1044I)  -  A111044I)  *  C 

IF  t  A2(  141  ).NF.B2(  141  )  )  A2(14I)  «  A2I1H)  *  B 

400  CONTINUF 


DO  500  I  *  1,  20 

I F  (  A 1  ( 84  4D.NE.BK84  *111  Al(84  *1)  *  Al(84  4l) 
l  F  (  All  18441  ). NF.Bll  10441))  AM1844I)  »  AM1844I) 


ft,  I  i L  jt  At  I 


500  CONTINUE 


*  B 

*  B 

*  C 


"**■»  . 

DO  600  I  «  1,  30  >V 

IF  (  AM  4  4  I  )  .NE  .61(4  4  ID  A I  ( 4  4  I )  «  Al(4  Ml  *  6 

I F (  Al( 11441 ).NE.B1( 114*1 ) )  41(114*1)  -  Al(1144l)  *  8 

I F (  A1(280*I ).NE.B1( 280*I>)  41(280*1)  *  AM2B0+I)  *  B 

IF (  All  154*1 ).NE.B1( 154+1 ) )  41(154*1)  *  Al(154*I)  *  C 

600  CONTINUE 


IF(  Al( 314). NE. 81(314)  )  Al(314>  »  41(3141  *  B 
I F (  41(315). NE. 01(315)  )  AK315)  -  41(3151  *  8 
I F  <  A1(316).NE.B1(316)  )  41(316)  -  41(316)  *  8 


R1T0678 
R  IT  06  79 
R1T0680 
RIT0681 
R1T068*2 
R1T0683 
R1T0684 
R1T0685 
R1T0686 
R1T0687 
R1T0688 
R1T0689 
R1T0690 
R1T0691 
R1T0692 
R1T0693 
R1T0694 
R1T0695 
R1T0696 
R1TQ697 
R1T0698 
R1T0699 
R1T0700 
R1T0701 
R1T0702 
R1T0703 
R1T0704 
R1T0705 
R1T0706 
R1T0707 
R1T0700 
RIT0709 
R1Y0710 
R1T0711 
KIT  07 12 
R1T0713 
R1T0714 
R1T0715 
RIT0716 
RIT0717 
R1T0718 
R1T0719 
R1T0720 
H1TU721 
K1T0722 
R1T0723 
R1T0724 
R1T0725 
R1T0726 
R1T0727 
R1T0728 
R1T0729 
R1T0730 
R  IT  07  3 1 
R1T0732 
R1T0733 
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IF( 

All  318) 

•  NE.  B 1(318)  )  A 1 ( 31 8 ) 

m 

A1(3L8) 

* 

B 

R1T0734 

I F  { 

A l( 430 ) 

•  NF • B 1 ( 430 )  )  All  430 ) 

m 

A1 (430) 

* 

B 

RIT0735 

I F  ( 

Alt  431) 

.NF.BM431)  )  AK431) 

m 

Al(431 ) 

* 

B 

R1T0736 

IF' 

All  432) 

.NE.BH432)  )  Al(432) 

m 

41(432) 

* 

B 

RIT0737 

I F 1 

Alt  236) 

.NF.B1J236)  )  Al(236) 

M 

A1 (236) 

* 

B 

RIT073B 

1  F  ( 

All  237 ) 

•  NE • B 1 ( 2 37  )  )  AU237) 

M 

41(237) 

* 

B 

R1T0739 

I  F  ( 

All  2381 

.NF.BM23B)  )  41(238) 

m 

Al  (238) 

* 

a 

R  IT  0740 

I  F  ( 

Al(  239) 

.NE.BK239)  )  Al(239) 

m 

41(239) 

* 

a 

R1T0741 

I F  ( 

Alt  240 ) 

.NF. 81(240)  )  41(240) 

m 

Al(240) 

* 

B 

R IT 0742 

I  F  ( 

All  241) 

.NE. 81(241)  )  41(241 ) 

M 

AK241) 

* 

B 

R1T0743 

I  FI 

All  291) 

•NF • B 1 ( 291 )  )  Al(291) 

m 

Al  (291 ) 

* 

B 

R1T0744 

IF! 

Al( 302) 

.NE. 81(302)  )  41(302) 

m 

Alt  302) 

* 

B 

R1T0745 

I F (  A  L ( 3131 
IF!  A2(12). 
I F (  A2( 13 ) . 

RETURN 

FND 

.NE.BK313)  )  A1  (  313) 
NF.B2( 12)  )  A 2 ( 12)  - 
NE.82(  13)  )  A2( 13)  - 

-  A1(313) 

A  2 ( 12  I  *  8 
A2(  13)  *  B 

* 

a 

R1T0746 

R1T0747 

R1T0748 

R1T0749 

R1T0750 

R1T0751 

CC  -  00074 
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S  (Mn  !■  W  M  -■ 


CVpRL  AY ( 2, 0  I 

program  geom 


c 

C  COMPUTES  GEOMETRIC  PARAMETERS  FOR  AERO  CALCULATIONS 
C 


COMMON  /BLKA01/ 
COMMON  /81KA02/ 
I 


COMMON  /BLKA03/ 


N800YS,  NNACSt  NSURFS,  NHT .  NVT »  ISWP,  NPNLS 
SREF »  AR,  TAPR,  SWPLE , 

BLEN(IO).  BMID(IO),  BHGTCIO),  BAMET (10) *  BCIIOJ, 
BNOl  10}  ,  BAMXt  10) «  BABSUO),  BLNS(IO),  BLBT(IO) , 
BASE!  101 «  ELENI10),  EMIO(IO),  EHGTIIO) , 
EAMETUO),  EAMX(IO),  E I  N(  10)  •  EXIT!  10)  «  ELNS(IO), 
ELBTtlOl,  FQF(IO),  ENO( 10) ,  CBARUOI,  TM, 

XLEW,  YMM,  YBOO*  CR ,  B02,  A2»4), 

CAM<10),  TOC (10),  A  HE  T ( 10? ,  SHMT ,  SPLAN,  CONCL. 
TWIST,  FTHIST,  I NC ,  XLE(ll),  CRH(ll),  YU(ll), 
XPIVOT,  YPIVOT,  XAPEX ,  AFTSK,  AFTCB,  AFTOC , 

SOAR  (  10 )  i  TSI  10)  *  SCAM(IO),  STOCUO),  SAWET(IO), 
SMTSW(IO),  SHF  (  10)  ,  S  ML  ( 1  0)  ,  SWTUO)  ,  STAPR  ( 10  )  t 
SCR ( 10) •  HTLE •  HTY ,  HTZ  »  HTINC 

ROUGH*,  CLE  13)  ,CCR(  3)  ,YC(3)  ,  XCG,  7.CG.CMAC  ,  A1  (7  ) 


COMMON  /BLKG01/  FRBOO(IO),  ARS(IO),  SSEX(IO),  FRNAC(IO),  SHP, 

SWPQC ,  SMPMC *  SWPTE,  DOB,  TOCM,  CLO,  SEXM,  ESWMC, 
SXX(IO),  XLFSMXI 10),  XMCSMX(IO),  ARM,  TR,  HPLAN, 
CB,  YB,  XB, 

CR  X,  CBX,  CTX,  YI  X,  YOX  •  SIX,  SCX,  ARI ,  i.RXR, 
CBXP,  AROP,  SOXP,  SMPLE I ,  SMPLEO,  SWPMCI,  SMPMCQ, 
FSHOC,  FSWLE,  ESWTE ,  CROB ,  OXOB,  XHT,  XCRTF, 

XH,  OMEGA,  FOC,  TWST,  OINC,  Gl(5),  DXQC,  G3I81) 

f 

COMMON  /BLKPRT /  KPRINT(50) 

C 

DIMENSION  F0CX122) 

DIMENSION  G2( 200) 

EQUIVALENCE  (G211),  FRBOD I  1 ) ) 

DATA  FOCX  /  4*0,05515 , 3* C. 066 51 ,15*0, 079  / 

C 

TWST  =  TUI  ST 

DINC  *  WINC 

r 

DO  100  I  =  1,  NBODYS 

BOI A2  «  BW ID( I  )  *  BHGT (  I  ) 

FRBOO(I)  «  0.0 

I F  (  BAMXm.EO.O.O  )  BAMX(I)  *  0.7854  *  BDIA2 

Iri  BAWETi ii .£0.0.0  )  BA  MET I  I )  »  ( 2. B*BLNS(  l )  ♦2.5*BLBT(I) 

1  *(  l.+S0RTIBABS(  I  l/BAMXI  I))  )  «■  CBLENU)  -BLNSUI  -BLBT(II) 

2  *4.  )  *  SQRTI.7854  *  BAMXi E ) )  *  BNO<II 

I F  (  BDIA2-GT.0.0  )  FRBOOU)  «  BLEN(  I  )/SQRT(BDIA2) 

100  CONTINUE 
C 

DO  200  1*1,  NNACS 
t  D I A  2  *  FM ID( I)  *  EHGTI I  ) 

FPNACl II  *  0.0 

! F (  FAMX( I  I .FO.O.O  >  FAMX(I)  -  0.7654  *  EDI A2 
I F (  EAMETI I  1 .EQ.0.0  I  EAMFT(I)  -  (2.5*ELNS(I)  *  (1.  ♦ 

1  SQRT(FIN(  I  1/EAMX(  I  I)  )  ♦  2.5  *ELBTCII 


RIT0753 

R1T0754 

R1T0755 

R1T0756 

R1T0757 

R1T0758 

RIT0759 

R1T0760 

R1T0761 

R  IT  07  62 

R1T0763 

R IT  0764 

RIT0765 

R1T0766 

R1T0767 

RIT0768 

R  IT  07  69 

R1T0770 

R1T0771 

R1T0772 

RIT0773 

R1T0774 

RIT0775 

R1T0776 

RIT0777 

R1T0778 

R1T0779 

RIT07B0 

R1T0781 

RIT0782 

R IT  0783 

R IT  0784 

RIT0785 

R1T0786 

R1T0787 

R1T0788 

RIT0789 

R1T0790 

RIT0791 

R1T0792 

KIT  0793 

R1T0794 

RIT0795 

R1T0796 

R1T0797 

R1T079B 

R1T0799 

R1TC800 

k IT 0801 

KIT  0802 

RIT0803 

R1T0804 

R1T0805 

R1T0B06 

R1T0807 

R IT  0808 
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1  M l.*SQRTIEXIT( I l/EAMXI I  III  ♦  (ELENCII  -ELNS(I)  — E  L  BT  ( I )  ) 

R1T0809 

2  *4.1  *  SQRTI..7854  *  BAMX(  I  ) )  *  ENQ(t) 

R1T08I0 

IEC  E0IA2.GT.0.0  1  FRNACIII  *  ELEN( I 1 /SQRKEDIA2I 

200  CONTINUE 

RIT0811 

RIT08I2 

R1T08I3 

210  NP 

NPNLS  ♦  1 

R1T0814 

IE  C  NPNLS.NP.l  I  GO  TO  220 

R IT 08 15 

TSWP 

TAN( SWPLE I 

R1T0816 

CO  » 

4./AR  *(  l.-TAPR)/U.*TAPRl 

R*. 0817 
R IT  08 18 

GEOMETRY 

FOR  SIMPLE  TRAPEZOIDAL  KINGS  IS  CALCULATEO  HERE 

R1T0819 
R  IT  0820 

SWP 

SWPLE 

R1T0821 

SWPQC  - 

ATANJTSWP  -  CO  *  0.251 

R IT  0822 

SWPMC  ■ 

AT AN( TSWP  -  CO  *  0.501 

R IT  0823 

SWPTF  « 

AT AN( TSWP  -  CO  I 

R IT  0824 

BO  2 

0.5  *  SORT ( SPL AN  *  AR ) 

R IT  0825 

Ywm  • 

YBOD 

R1T0826 

XLF(l)  « 

XLFW  ♦  (YBOD  -  YWM I  *  TSWP 

R IT  0827 

DOB 

YW(  II/B0  2 

R1T0828 

R1T0829 

CR  - 

SPL AN/ ( B02*( 1.+TAPR1  I 

R IT  0830 

XCRTF  « 

XL EW  -YMW  *  TSWP  ♦  CR 

R1T0831 

CRX 

CR  *  (1.  -  DOB* ( I.-TAPR)  I 

R1T0832 

CTX 

CR  *  TAPR 

R1T0833 

IM  CBARlll.EQ.0.0  1  C8ARUI  »  (CRX  ♦  C  TX**2 /( CRX*C  TX  I  i  *0. 66667 

R  IT  08  34 

Y IX 

BO 2  *  (L.-OOB) 

R1T0835 

CB 

0.66667  *  CR  *  ( l.  ♦  TAPR*TAPR /(I.  ♦  TAPRII 

R1T0836 

VP 

B02/3.  *  (1.  ♦  2.* TAPR 1/(1.*  TAPRI 

RIT0837 

XB 

YB  *  TSWP  +  XLE ( I )  -  YW( 1 1 *T SWP 

R1T0838 

RIT0839 

ESWMC  * 

SWPMC 

R IT  0840 

ESWOC  « 

SWPQC 

R1T0841 

ESWLE  - 

SWPLE 

R IT  0842 

ESWTE  * 

SWPTE 

R IT  0843 

TOCW 

TOC  (11 

R IT  0844 

CLO 

CAM (II 

R IT  0845 

TR 

TAPR 

R IT 0846 

SPXW 

SPLAN/l 1.6TRI  ♦  (2.-I 1.-TRI41YWI II/B02  ♦l.ll 

R1T0847 

1 

*  ( I.-YWI 1 1 /B02I 

R1T0848 

SXXdl  * 

SEXW 

R1T0849 

I E  (  AWFT«  li.EQ.0.0  1  AWETUI  -  SE  XW  *  (2.  ♦.1843*T0CW 

R1T0850 

1 

♦1.5268*T0CW**2  -. B395*T0CW**3J 

RIT0851 

XLE  SWX ( 1 

=  SWPLE 

R1T0852 

XMCSWXl I) 

=  SWPMC 

R1TQ853 

ARW 

AR 

R1T0854 

WPLAN  * 

SPLAN 

RIT0855 

SIX  * 

SEXW 

RIT0856 

ARXR 

4.*  YIX**2/SIX 

R1T0857 

SWPlfl  * 

SWP 

R1T0858 

SWPMCI  = 

SWPMC 

R1T0859 

R1T0860 

YW ( 2  I  = 

BO  2 

R IT  0861 

XLF ( 2  I  = 

XLE 1 l I  ♦  tYW(2l-YW(il>  *  TSWP 

R1T0862 

CRWIll  - 

CRX 

RIT0863 

C^W  (21  = 

CTX 

RITG864 

109 


CR09 

*  0.5  *  CR/B02 

R1T086S 

dxob 

=  CROB  -  0.75  *  TAN(SMPQC) 

R1T0866 

c 

R1T0867 

220 

IF (  NPNLS.GT.2  1  GD  TQ  240 

R1T08S8 

DO  230 

I  *  it  NP 

R1T0869 

CLE(  I) 

=  XL  F  ( 1 1 

R1TO07O 

CCR(  I) 

*  CRWUI 

R IT  08  7 1 

YC(  II 

*  YM I  1 1 

R1T0872 

230 

CONT INUE 

R1T0873 

c 

R1T0874 

240 

IF(NPNLS.LE.l)  GO  TO  310 

R1TO075 

c 

GEOMETRY  FOR  MOLT IPLF  PANEL  MINGS  IS 

CALCULATED  HERE 

R IT 08 76 

c 

R1T0877 

WPLAN 

■  SPLAN 

R1T0878 

B02 

»  YMINPI 

R IT  08 79 

TR 

-  TAPR 

R1T088Q 

SWP 

-  SWPLE 

R1T0891 

ETA 

*  YW(1)/YM(2) 

R IT  0882 

CRCL 

■  (CRWUI  -  ETA  *  CR  Ml  2 1 1  /l  1. 

-ETA) 

R1T08B3 

CRHB 

«  0.5  *  CRCL/B02 

R1TO084 

009 

-  YWI1I/B02 

R1T0885 

sfxm 

-  0.0 

P.  IT  0036 

TC1CM 

*  0.0 

R1T0887 

CLO 

-  0.0 

R IT  0888 

COSMC 

*  0.0 

R1TO089 

cnsac 

-  o.c 

R  IT  08  90 

TANLF 

-  0.0 

R1T0891 

T  ANT  F 

«  0.0 

R1T0892 

SUMCD 

*  0.0 

R IT  0893 

SUMYB 

*  0.0 

R1T0894 

SUMXB 

*  0.0 

R1T0895 

c 

R1T0896 

on  300 

I  *1,  NPNLS 

R1T0B97 

DYW 

-  YW( I  +  ll  -  YW  I  I  1 

R1T0898 

sx 

=  ( CRWI I *1  1  ♦  CRMI III*  OYM 

R1T0899 

OXLF 

=  -  XL  E( I I  *  XL  E I  I  +  ll 

R1T0900 

XLFSW 

*  AT ANI DXL E/OYW I 

R1T0901 

DXTF 

*  OXLF  ♦  ICRWU  +  l)  -  CRWIII) 

RIT0902 

IFI  I  . 

EQ.l  I  XCRTE  -  XL  FI  11  ♦  YNdJ  *TAN(  XLESWI  *  CRCL 

R1T0903 

DX 

=  DXLF  ♦  0.5  *  (CRW(I*l)  -  CRHCIIJ 

R1T0904 

0X0 

=  OXLE  ♦  0.25  *  (CRM  ( l  •#  1 1  -  CRW(I)) 

R1T0905 

XTESN 

=*  AT  AN(  DXTE/OYM  I 

R1T0906 

XMCSW 

-  AT  ANI OX/OYM  I 

RIT0907 

XQCSW 

=  AT ANI DXQ/DYW ) 

R1T0908 

c 

R IT  0909 

CR 

-  CRW(I) 

R1T0910 

CT 

=  CRM (I+ll 

R1T0911 

T 

=  CT/CR 

R1T0912 

r. 

R IT 09 13 

SXXII I 

-  SX 

RIT0914 

XLESWXI I  I  =  XLESM 

R1T0915 

XMCSWXI I >  =  XMCSW 

R IT  09 16 

c 

R1T0917 

CB 

=  0.66667  *  CR  *  (1.  ♦  T*T/(l. 

♦T  1 1 

R IT  09 18 

IF(  CBARIII.EO.O.O  I  CBAR(I)  *  CB 

RIT0919 

YB 

*  0.33333  *  OYM  *  (l.+2.*T)/(l 

-♦T)  ♦  YW( I ) 

R IT  0920 
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fc 


XB 

*  XL E ( I  )  -  XLFC1I  ♦  (YB  J YW< 1 > 1 *TAN( XLE 5W ) 

R1T0921 

c 

- 

R IT  0922 

OYX 1 

*  0.75*B02  -  YWt  U 

R1T0923 

OYX2 

*  0.75*802  -  YWl i ♦ l 5 

RIT0924 

IF*  OYX  I.GF. O.O. ANO.OYX2.LT. 0.0  >  XI  -  XLEIIJ  ♦  CRW(I>*0.25 

RIT0925 

I 

♦  OYXI  *  TANlXQCSWi 

R1T0926 

c 

R1T0927 

c 

R1T0928 

IF*  AWET  (  I )  .fw.0.0  >  AWET1I1  -  SX  *  C  2.  1843*T0CI  I ) 

R1T0929 

1 

*1. 52  68*T0C 1 I >*42  - . 8395*T0C ( I )**3> 

R IT  09 30 

TOCW 

*  TOCW  ♦  SX  *  T0CCU**2 

R1T09JI 

COS  MC 

«  COSMC  ♦  COS(XHCSW)  *  SX 

RITC932 

COSQC 

■  COSQC  ♦  COSIXOCSW)  *  SX 

RIT  0933 

TANLE 

»  TANLE  TAN(XLESW)  *  SX 

RIT0934 

TANTE 

■  TANTE  *■  TANIXTESW)  *  SX 

RIT0935 

CLD 

*  CLD  «•  CAM!  II**  2  *  SX 

RIT  0936 

SFXW 

-  SEXW  ♦  SX 

RIT0937 

c 

RIT 09 38 

SUMCB 

■  SUMCB  ♦  CB*SX 

R I T  09  39 

SUMYB 

«  SUM YB  ♦  YB*S X 

R IT 09  40 

SUMXB 

-  SUMXB  +  XB*SX 

R  IT  0941 

c 

RIT 0942 

300  CONTINUE 

R IT  0943 

c 

RIT 0944 

TOCW 

*  SORT! TOCW/SEXW) 

R1T0945 

CLD 

-  SQRTICLD/SEXWl 

R  IT 09 46 

ESWMC 

-  ACOSI CO SMC /SEXW) 

R1T0947 

FSWOC 

-  ACOSI COSOC /SF XW) 

R IT 0948 

ESWLF 

■  ATANITANLE/SEXW) 

RIT0949 

ESWTE 

■  ATANITANTE/SEXW) 

R1T0950 

c 

RIT  0951 

CB 

-  SUMCB/SEXW 

RITJ952 

YB 

-  SUM YB/ SE  XW 

R1T0953 

XB 

-  SUMXB/SFXW  +  XLEI 11 

RIT  0954 

X2 

■  XL  E I  L  )  -  YWI  1)*TANIXLESWX(I)  >  *■  0.75  *  CRCL 

RIT  0955 

DXOB 

-  1X2  -  X1I/B02 

R1T0956 

c 

« 

RIT  0957 

I F I  WPL AN.FQ.0. 0  J  WPLAN  ■  SEXW  ♦  ICRCL  ♦  CRWIlll  *  YWIU 

R IT  0958 

ARM 

-  4.  *  B02**2/WPL AN 

R1T0959 

TRK 

*  (TANI ESWLE)  -  TANI ESWTE  >  >  *0.25  *  ARW 

RIT  0960 

I F (  ISWP.EU.O  I  TR  »  (l.-TRKI/Il.+TRK) 

RIT 0961 

TRL  IM 

*  CRWINPI/CRCL 

R1T0962 

IF!  TR 

•  L T .TRL IM  )  TR  *  TRLIM 

P  IT 0963 

c 

T  0964 

,  t  A  m  w-  •  (  •  r 

m  r  i*  •  r  *  %  /»n  rn  i  i  A 

Ij  1  T  Afl  A  C 

JLU  in  noun  r  j  •  l  c  •  i  t  VJU  III  11U 

»  A  1  V  F  *  J  > 

XNYT 

*  NVT 

RIT  0966 

00  400 

J  »  2,  NSURFS 

RIT0967 

I 

-  J-l 

RIT  0968 

c 

RIT  0969 

SS^XIII  -  S  AWET  (1)40.5 

R 1 f  09  7  0 

IFISCRII I.LE.O.O)  GO  TO  400 

RIT  0971 

ARS (II 

«  SSEXI  I) /SCR  4 1  )**2 

RIT0972 

c 

RIT0973 

IF ISWLt I I.EQ.SWTI II)  GO  TO  400 

RIT 0974 

ARS  m 

-  4.*(  1.,-STAPPI  m/I  l.  +  STAPRII  >  >  /I  T  AN  1 SWLI I  )>  -T  AN!  SWT  1 1  1  >  > 

RIT0V75 

ssFxm  =  iscrid  *  <  i.+staprii  m**2  *  arsiii  *  0.25 

R1T09 76 
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non 


IF(NHT.EQ.O.AND.NVT.GT.O)  SSEX(l)  «  0.5  *  XNVT  *  SSEX(i) 
IF(NHT.EQ.l.AND.NVT.GT.O)  SSEX<2)  -  0.5  *  XNVT  *  SSEX(2) 

C 

I F  C  SAWET(I). EO.O.O  )  SAWET(I)  *  SSEX(l)  *  (2.  1843*ST0C ( I } 

1  +1. 5268* S TOC  ( I ) **2  8395*STOC( I) **3> 

I F  (  SflAR(I )  .EO.O.O  )  SBAK(I)  -  0.66667  *  SCRUI  * 

1  (  l.*STAPR(I)**2/( i.»STAPft(II)) 

C 

400  CONTINUE 
C 

410  IF(  XCG. EO.O.O  J  XCG  ■  XB  ♦  0.25  *  CB 
I F (  CMAC. EO.O.O  I  CMAC  -  CB 
MI  -  TW 

FOC  »  CLO  *  FOC X (N I ) 

OX QC  ■  XLE(  l+NPNLS)+CRfc  «-NPNLSI*0.25  -XLE  ( II-CRWC  11*0.25 

\ 

GEOMETRY  FOR  THE  HORIZONTAL  TAIL  IS  CALCULATED 

XH  -  0.0 

OMEGA  «  0.0 

C 

IF(  NHT.EQ.O  I  GO  TO  41.5 

BHT  ■  SORT  ( AP,  S  (  11  *  SSfX(ll)  * 

XHT  -  RHT/6.  *  (I.  ♦  2.  'STAPRJ 1) S/I1.+  STAKRUI I  *TAN(SWL(l> 1 

1  •>  ♦  SBARftl  *  0.25  HTLE 

C 

XH  ■  SORT! (HTZ-ZCG1**2  ♦  ( XHT-XCG > **2 ) 

OMEGA  -  AT  6NI ( HTZ-tf? Gl/( XHT-XCG)  1 

r 

415  I F (  NPNLS.LF.l  1  GO  TO  420 

C 

T  CRANKF&WING  GEOMETRY  IS  CALCULATED 

C 

CRX  ■  CCRI11 

CBX  -  CCR (2) 

CTX  ■  CCR ( 3) 

Y I  X  -  YC  (  2 1  -  YCU) 

YOX  -  YC  (  3)  -  VC  (  2  I 

r 

SIX  -  (CRX  ♦  CBX)  *  Y I X 

SOX  ■  (CBX  *  CTX)  *  VOX 

API  -  4.  *  Y I X**2  /  SIX 

ARXR  »  4.  *  (VI  X*YO  X  1**2  /(SIX*SOX> 

C 

DYP  *  Y I X  *  0.5 

CHXP  -  CTX  ♦  (YOX  ♦  OYP )  *  (CBJ.-CTX) /YOX 

SOXP  *  ( CBXP  ♦  CTX I  *  (YOX  ♦  DYP) 

AROP  *  4.  *  (YOX  ♦  DYP  )**  2  /SOXP 
C 

SMPLFI  ■  ATAN(  (  CLF(21-CLE.  1H/YIX) 

SWPLcO  -  ATAN((CLE(3)-CLE(2l)/YOX» 

SWPMCI  =■  AT  AN(  ( CLE ( 21-CLE  ( 1 1  ♦  l CBX-CRX 1  *0. 5)  /VI X) 

SWPMCO  -  ATAN((ClE(3)-CLE(2»*(CTX-CBX)*0.5>/V0X) 

C 

420  I F (  KPRINT( 121.EQ.0  )  GO  TO  421 
WRITP(6» 1000 1  ( G2( ( I •  I  -  1,  111) 


R1TG977 
Rif  0978 
R1T0979 
R1T0980 
R IT 098 l 
RIT0982 
R1T09B3 
R1T0984 
RIT09B5 
RIF  0986 
R1T0987 
RLT0988 
R IT  0989 
R1T0990 
R IT 099 l 
RIT0992 
R1T0993 
RIT0994 
R IT 099 5 
R IT  0996 
R1T099/ 
R IT  0998 
R IT  0999 
R IT  1000 
RIT1001 
R  IT  1002 
R1T1003 
R1T1004 
R1T1005 
R1T1006 
R1T1007 
RIT1008 
R1T1009 
RIT1010 
RITlOll 
R  IT  1012 
R IT  10 1 3 
R1T1014 
R1T1015 
RIT  1016 
R1T1017 
R IT  10 18 
RIT 1019 
RIT 1020 
Rif  1021 
RIT 1022 
RIT 1023 
RIT 1024 
KIT  1025 
R IV 1026 
R IT  102  7 
RIT 1028 
RIT 1029 
RIT 1030 
RIT 1031 
RIT 1032 


c 


421  WR I TF ( 6,  2000 ) 

I F «  NBODYS.GT.O  I  WR I TE ( 6 , 2 00 1 )  ( I , BLEN( I ) ,BAWET( l > ,FRBCD(II  , 
1  BO (lit  I  »  1«  NBOOYS) 

I F  (  NNACS.GT.O  I  WRI TE ( 6, 2002 1  (  I , ELEN ( l > , E AWET I  I) , FRNAC ( I > . 
1  EOF (  I  )  f  1  -  1,NNACSI 

I F (  NSURFS.FO.O  I  GO  TO  450 
X  -  SWMT  *  57.2958 

DO  425  I  -  I*  NPNLS 

I F (  I. NE. NPNLS  )  WRITEC6. 2003)  If  CBAR(I)  ,  AWE  T( I ) ,  TOCIII 
425  I F  (  I. EO. NPNLS  I  WR  I  TE  (  6 1  2003 1  It  CBARUI,  AWET(I),  TOCU).  X 

NS  -  NSURFS  -  1 
IF (  NS.LF.O  I  GO  TO  450 
00  430  I  ■  If  NS 

J  ■  I  ♦  l 

X  -  SMTSWdl  *  57.2958 

WR  IT  E  (6.  2004 1  J.  SBAR(I),  SAWET(I),  STOC(l)  ,  SHFU),  X 
430  CONTINUE 
450  CONTINUE 

1000  FORMAT (5Xt  * GEOME TR Y  DATA  RUMP,  COMMON  BLKG01*/! IX. 10F12 .4 1) 

2000  FORMAT ( lHif  5X,  *CONF IGURAT ION  SUMMARY*  /// 

1  31X?  *LENGTH*,  7X,  * WETTED  AREA*.  5X,  *FR  CR  T/C*. 

2  4Xf  *  INTERFERENCE*!  4X,  *MAX.  T/C  SWEEP*  / 

3  30X,  *  (FT.)*,  8X,  *  (SO.  FT.)  *,  20X, 

4  *FACTOR*,  8X,  *  (DEG.)  *  /  I 

2001  FORMAT ( 5X.  *BOOY  NUMBER*  12,  5X.  4F15.5) 

2002  FORMAT ( 5X,  *NACELLE  NO.*  12,  5X,  4F15.5) 

2003  FORMAT ( 5X ,  OWING  PANEL  NO. *12,  2X,  3F15.5,  15X,  F15.5) 

2004  FORMAT ( 5X,  *AIRFOIL  SURFACE  NO. *12,  F12.5,  4F15.5) 

END 


R1T1033 
RIT1034 
R1T.J35 
R1T1036 
R1T  1037 
R1T1038 
R1T1039 
R1T1040 
R1T1041 
R IT  1042 
R1T1043 
R IT  1044 
R1T1045 
R1T1046 
RIT1047 
R  IT  1048 
R IT  1049 
RIT1050 
R1T1051 
RIT1052 
R1T1053 
RIT1054 
R1T1055 
R1T1056 
R1T1057 
RIT1058 
RIT1059 
R1T1060 
KIT  1061 
R1T1062 
R1T1063 
R  IT  1064 
R IT  1065 
R1T1066 


CC  -  00314 


i 

i 


\ 

I 

! 
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OVERLAY  (3,0  I 
PROGRAM  SURVEY 

AERODYNAMIC  SURVEY 

COMMON  /3LKA01 /  NBODYS,  NNACS,  NSURFS,  NHT »  NVT ,  ISWP,  NPNLS 

COMMON/BLK  SUR/  NSURV,  NCLAS  •  IT(20),  ITRM(20>.  FMSURV(20>, 
l  AL  T i 20) ,  DHSV120),  SWPVI20),  CLLOJ20),  CLHII20), 

l  TRBNWS (250) 

COMMON  /BLKHLS/  NHLSV,  HLS( 70) 


COMMON  /8LKTCL / 
COMMON  /BLK0V3/ 


COMMON  /BLKC01 / 


TI  TLE  ( 6) 

ITYP,  XMACH,  TOC, 
ROT,  OTE  ,  I  TRIM 


CLD,  SWPMC ,  H,  FM ,  I TL ,  JPASS, 


COMNON 

COMMON 

COMMON 

COMMON 


/BLKC01 /  CL,  CO,  CM,  ALPHA,  COM,  CDL •  COR,  CORO,  CLT,  COT, 
DrC,  FK,  DELCL ,  CMO,  OCMCL,  XACWB,  CLA,  ALO, 
TCD15),  COFUS (5|,  CDB0D(5),  CDNAC(4>,  CDNINGI4), 
CDHT (4 J  »  CDVT ( A  i ,  CDSURFI4), 

C1I9I,  CLPB  ,  CLDB,  CL  MAX,  C2(9),  CDC,  C3(10), 

C4  (  7  ) ,  C  CM  I  SC,  OEOA,  COAFT,  C5(5J 
/BLKA02  /  A I  (  43  3  ) 

/  BL  K  A  03  /  A2(  13  )  ,  IREF,  A3(6) 

/BLKVGM/  K PASS ,  SHP,  VGM(27) 

/BLKC  03/  C03(  22) 


COMMON  /QLKCOI/  GK2001 

COMMON  /BLKB02/  AA(22  ),  88(22),  CC(22),  0D(22),  XT(  22) 

DIMENSION  XOTE(  20) ,  Y0TE(20) 

DATA  XOTE  /  34.6,38.4,46.4,60.2,57.5,59.3,66.5,30.0,95.0,50.0, 

L  63.0,82.8,113.0,153.0,63.0,82.8,113.0,63.0,82.8,113./ 

I  VOTE  /  4*14. 8,  3*14.05,  40.0,0.0,11*13.8  / 

IF(  ISMP.EG.O  )  GO  TO  100 
KPASS  -  1 
SMP  «  A1 (4) 

CALL  0VERLAY(4H0VL Y,3, 1) 

KPASS  -  2 

SWP  -  Ai(  317) 

CALL  OV  ERL AY ( 4H0VL Y ,3,1) 


100  KPASS 


«  G1 (46 ) 

*  G 1 (47) 

»  *  A  1 (  235) 

:  *  A1 (280) 

NSURV.FQ-O  )  GO  TO  510 


SWPV(1 ) 


R1T1068 
R1T1069 
R1T  1070 
R1T1071 
R IT  1072 
RIT1073 
R1T1074 
R IT  1075 
R1T1076 
R1T1077 
R  IT  1078 
R1T1079 
R IT  1080 
R1T10B1 
R 1 Tl 082 
R  IT  1083 
R1T1084 
R IT 1085 
R IT  1086 
R1T1087 
R IT  1 088 
R1T10B9 
R 1 Tl 090 
R  IT  1091 
R1T1092 
R IT  1093 
R1T  1094 
R1T1095 
R IT  1096 
R1T1097 
R1T1098 
R IT  1099 
RITHOO 
R 1T1101 
,  R  IT  1 10  2 
R1T1103 
R IT  1104 
R1T1105 
R1T1106 
R  IT  1 107 
RIT1108 
R IT  1 109 
R IT  1110 
R IT  1 1 1 1 
R 1T1112 
RIT1113 
R1T1114 
R  IT  1 1 1 5 
R1T1U6 
R1T1117 
R IT  1118 
RIT1119 
R IT  1 120 
R  IT  1 12 1 
R1T1122 
R IT  1 123 


JPASS  *  0 

DO  500  L  *  1,  NSURV 


114 


FM  *  FMSURV(L) 

H  «  AIT(U 

OH  *  DHSVI  L  ) 

SWEEP  *  SWPV(L) 

CLLO  W  *  CLLO!  L> 

ITL  =  ITlLi 
ITRIM  =  I  TRM(  LJ 
C 

XNCL  -  NCLAS  -  l 
DC  L  *  0.0 

IF  (  XNCL.GT.0.0  l  OCL  =  (CLHIILJ  -  CLLO(L))/XNCL 
C 

SWP  *  SWEEP/57.2957796 

IF (  ISWP.GT .0. AND. SWEEP. ME. SWP  2  i  JPASS  *  0 
SWP2  *  SWEEP 
C 

IF!  ISWP  .GT  .0. AND. JPASS. EQ. 0  I  CALL  OVERLAY! 4H0  VL  Y,  3 , 1 ) 

E02  *  0.25  *  SORT ( G1 180) *G1 ( 82  )  ) 

no  200  IP  =  It  NPNLS 
SWPMW  *  Gi  (69  ♦■IP  ) 

IF!  I SWP.GT. 0. AND. 1 P. EO.NPNLS  I  GO  n  190 

IF!  AI(  302+IP  I.LE.F02.AN0.A  I!  303+!  P)  .  .T.E02)  GO  TO  210 

GO  TO  200 

190  IF!  All 302  +  NPNLS). LE.E02  )  SWPMW  =  Gl (69+NPNLS ) 

200  CONTINJE 
C 

210  IF!  SWPMW. GT. G  1!  491  »  SWPMW  =  Gl!49) 

SW PMC  =  SWPMW  *  57.2958 
TOO  »  G 1 ( 46  I 
CLO  *  Gl  (  47  ) 

I  TYP  *  A1  (235  ) 

XMACH  =  0.6 
C 

IF(  JPAS5.EQ.0  1  CALL  OV ERL  AY (4H0VL Y, 3 , 2 > 

C 

IF!  JPASS. EQ. 2  )  JPASS  =  l 

C 

DO  300  M  =  1,  NCLAS 

XMl  *  H-l 

CL  «  Z L LOW  ♦  OCL  *  XMl 

C 

CALL  nVERLAY(4H0VLY,3  ,3 .6HRECALL) 

C 

SWEEP  *  Gl (41  I  *  57.29578 
IF!  M.  NE.I  I  GO  TO  22  0 
WRITE16, 10051  (TITLECK),  K=l,6) 

IF!  H.GF. 0.0. AND. ITRIM. EQ.O  I  WRIT E (6,  1000  I  FM, H, SWEEP , DH 
RN  *  -H  *  1.0E6 

IF!  H.LT .0.0 .AND. ITRIM.EQ.O  J  WR I TE ( 6,  1 006 )  FM,RN. SWEEP  ,DH 
IF!  H.GE.O.O.AND.ITRIM.NE.O  )  WRITE (6, 1008 1  FM,  H,  SWEEP 
IF!  H.LT.O. O.AND.I TRI M.NE. 0  )  WR1 TE ( 6 ,1 009)  FM, RN ,  SWEEP 
220  ANGLE  =  ALPHA 

IF!  1REF.EQ. 1  )  ANGLE  =  ALPHA  -  WINC 
C 

CORA  «  CDR  ♦  COAFT 

IF!  ITRIM.EQ.O  »  WRI TE I  6 , 1001 )  CLT ,  COT,  CM,  ANGLE,  COL,  CORA, 


R1T1124 
R  IT  1 125 
R1T1126 
R1T112? 

R  IT  1128 
R1T1129 
R IT  1 1 30 
R1T1131 
R1T1132 
R 1T1133 
RIT1134 
R1T1135 
R  1T1136 
R1T1137 
R 1T1138 
R  IT  1 1  39 
R1T1140 
R IT  1 141 
R1T1142 
R 1T1143 
R IT l 144 
R1T1145 
R IT  1 146 
R1T  1147 
R1T114B 
R IT  1 149 
R1T1150 
R1T1151 
R IT  1 15? 
R1T1153 
R IT  1 1 54 
R1T 1155 
R1T1156 
R IT l 1 57 
R1T1158 
R 1T1159 
R IT  1 160 
R1T1161 
K 1T1162 
R  IT  1 163 
R1T11 64 
R IT l 1 65 
R1T1166 
R1T1167 
R  IT  1 168 
R1T1169 
R  IT  1 1  70 
R1T1171 
R1TL172 
R IT  1 1 73 
R1T1174 
R1T11 75 
R IT l l 76 
R1T1177 
R  1T11771 
R IT  1178 
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X 


ITRIM.EQ.l  )  WKITE!6,1001) 


CL,  CO 
CL T ,  COT, 
CL,  CO 


ANGLE,  COL,  CORA, 


300  CONTINUE 


ALOR  *  ALO 

IF <  IREF.EQ.l  )  ALOR  =  ALO  -  WINC 
WRI Tt (6 ,1002 )  CLA,  ALOR,  CLOB,  FK, 


DEL CL,  CLMAX, 


WRITE(6,L003)(TCO(J), 

CDHTIJ) 

WRIT  E  (6 , 1004  )  TC0(5), 
WRI TE ( 6 , 1007)  COM 


500  CONTINUE 


CDFUSIJ),  COBOO ( J ) ,  CDNAC(J), 

,  CDVTIJ),  CDSURFIJS,  J  =  l,  4 


1,  OCMCL 

COWING!  J)  , 
>) 


CDFUSI5I,  COBOD(  5 1 ,  CDC,  CORO,  COM!  SC 


510  I F  (  NHLSV.EQ.O  )  GO  TO  700 

ROT  =  AAIITYPI/TOC  *  BBUTYP)  «■  CC  I  I  T  YP)  *  TDC 
IF!  ITT  P.E0.8  »  ROT  =  0.88216  *  Tor.**C.oOfc 
OTE  *  XO  TE(  I  TYP1  *TOC  ♦  YOTEIITYP)  *CLC 


IF  I  NSURV.GT.O  >  GO  TO  600 
C03 ( 1 )  =0.0 
DO  520  I  =1,  II 
IF l  I.GT.l  1  C 0 3(  I  )  *  C031I-1I 
C03 ( LI* I l  *  0.9 
520  CONTINUE 

600  DH  *  0.0 

FM  *  0.  2 

H  *  0.0 

CL  =0.0 

JPASS  =  0 
IT  L  =  0 
ITRIM  =  0 

CALL  OVERLAY {4H0VLY ,3,3) 

CALL  3VERLA Y! 4H0VL Y , 3 ,4) 

700  CONTINUE 


>!ITYPI*T0C**2 


1000  FORMAT  UX,  *MACH  NO.  =*F6.3,  5X, ‘ALTITUDE  =  *F7.0,*  F 

1  ‘SWEEP  ANGLE  =*F6.2f*  DEG.* ,  5X,*TAIL  DEFL.  ( 

2  *  DEG.*  //TIQ,  *CL*»  T22  , ‘TOTAL  CD*,  T38,*CM*, 

3  T 68 , *C0  LIFT*,  T82,*CD  R* AFT *,  T97,*CL  AT 

9  T1 1 3 ,*CD  AT  DH=0*  »  /  I 

1001  FORMAT  (  5X  ,  F  8 .3,  2F  15  •  5?  F  15.  2,  4F15.5) 

1002  FORMAT!  /10H  CLA  = ,F8.5 , IX, *PER  DEG.*,  10H  ALO 

l  *DEG .  *,  29X,  10H  CLDB  =,F8.5  / 


5X, ‘ALTITUDE 
DFO.  *  .  *>X  .  *T  i 


T.*,  5X, 

DH)  *  *F6.2, 
T53 ,* ALPHA*, 
DH  -0*, 


>  F  8.5,  IX, 


R IT  1 1 79 

R1T1180 

RlTli 81 

R IT  1182 

R1T1183 

R1T1184 

RIT1185 

R1T1186 

R1T1187 

R IT  1188 

R1T1189 

R IT  1 190 

RIT1191 

R1T11 92 

R  IT  1193 

R1TH94 

R1T1195 

R1T1196 

R1T1197 

R IT  1 198 

RIT1199 

RIT1200 

R  IT  120 1 

R1T1202 

R IT  1203 

R IT  1204 

R1T1205 

R IT  1206 

R1T1207 

R1T1208 

R IT  1209 

R1T1210 

R1T1211 

R  IT  1 2 1 2 

R1T1213 

R 1TJ214 

R1T1215 

R1T1216 

R IT  1217 

R1T1218 

R 1 T1219 

R IT  1220 

R1T1221 

R IT  1222 

R  IT 422  3 

RIT1224 

R IT  1225 

R1T1226 

R  IT  1227 

R  IT  1228 

R1T1229 

R IT  1230 

R1T1231 


1 

10H 

K  =  ,  F8  .5 , 

9X, 

10H 

DELCL  =» F  8. 5  , 

R1T1232 

2 

34X.10H  CLMAX 

*  ,F8. 5  / 

R IT  1233 

2 

10H 

CM  0  = ,F  8 • 5 , 

9X, 

10H 

CM/CL  =,F8.4  // 

R1T1234 
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3  *  ORAG  BREAKDOWN  -  *,  8X,*FUSLAGE* , 

4*»  A 1  X,  *W  IMG*,  5X,*HORIZ  TAIL*,  6X,*VERT 
1003  FORMAT 1  5  X,  1 OHFRI CT I  ON  *,  F7.5,7F15  .5  / 


TAIL**  7X,*SURFACES* 


** IPE15. 4, 5X  , 


1  5X*  I OHFORM  «,F7.5,7F15.5  / 

2  5X.10HINTERF  - , F7 .5 , 7 F 15 „ 5  / 

3  5X* 1 OHWAVE  *,F7.5  ,7F15.5  ) 

1004  FORMAT!  5X,  10HBASE  *,F7.5,  2F15.  5  / 

1  5X,1 0HCAM9ER  *,F7.5  / 

2  5X,  10HDRAG  RISE*,F7.  5  / 

3  5X*  IOHMISC  »,F7.5  I 

1005  FORMAT! 1HI,  /IX,  6A10  ) 

1006  FORMAT!  IX,  *MACH  MO.  »*F6.  3,  5X,*RN/FT  **  IPE  15.  4, 5X  , 

1  *L.E.  SWEEP  ANGLE  =  *  0PF6.2,*  DEG.  *,  5X,  *  TAI L  DEFL.  IDHI  «* 

2  F6.  2,*  DEG.* 

2  //T10,  *CL*,  T  22,  *TOTAL  CO*,  T3B,*CM*  ,  T53,*ALPHA*, 

3  T58,*C0  LIFT*,  T82.*CD  R+AFT *,  T97,*CL  AT  DH*0«, 

4  T  113, *CD  AT  OH*  0*  ,  /  ) 

1007  FORMAT  !/5X ,  10H  COMIN  -,F7.5  //I 

1008  FORMAT! IX,  *MACH  NO*  »*F6.3 *  5X,*ALTITUDE  =*F7.0,*  FT.*,  5X, 

1  *L.E.  SWEEP  ANGLE  »*F6.2,*  DEG.* , 5X  ,* TRI MMED  CONDITION* 

2  / /T1 0  »*CL*  «  T22  ,  *T  OT  AL  CD*,  T38,*DH*,  T53,*ALPHA*, 

3  T  68,  *CD  LIFT*,  T82,*C0  R*  AFT*  *  T97,*CL  AT  DH  -0*, 

4  T  1 13,  *C0  AT  DH3  0*,  /  I 

1009  FORMAT (IX,  *  MACH  NO.  -*F6.3,  5X,*RN/FT  »*1P E15 .4, 5X , 

1  *L.E.  SWEEP  AUGLE  «*  0PF6.2,*  DEG. * ,5X ,* TR1 MMED  CONDITION* 

2  / /T1 0 » *CL* »  T22, *TQT AL  CD*,  T38,*DH*.  T53,*ALPHA*, 

3  T63,*CJ  LIFT*,  T82 ,*CD  R+AFT*,  T97,*CL  AT  DH-O*, 

4  T 1 13, *CD  AT  0H=0*»  /  ) 


R1T1236 
R  IT  1237 
RIT1238 
RlTi.239 
R IT  1240 
R1T1241 
R IT  1242 
R IT  1243 
R1T1244 
R IT  1245 
R1T1246 
R1T1247 
R IT  1248 
RIT1249 
R IT  1250 
RIT1251 
R1T1252 
R IT  1253 
RIT1254 
R IT  1255 
P  IT  1256 
RIT1257 
R IT  1258 
RIT1259 
R1T1260 
R IT  1261 
R1T1262 
R IT  1263 
R IT  1264 


CC  *  00198 


non 


SUBROUTINE  ADJUST ( 10*  102,  XVAR,  VVARI 
ADJUST  Y-VAR IABLE  USING  CORRELATION  FACTORS 

COMMON  /BLKAOJ/  IVAL120),  XI15I,  YMI15,9),  YA(15,9),  XCLII5), 
1  NXVAR ,  NXCL 

COMMON  /8LKPRT /  KPRINTI50) 

VVARI  *  WAR 
IF  i  IO.EQ.O  )  GO  TO  300 
50  NV  -  IVAL! 101 

IF 1  NV.FO.O  1  RETURN 

10U  CALL  LNTPIXVAR,  VM,  X,YMII,NV),  NXVAR,  2) 

200  CALL  LNTPIXVAR,  VA,  X,YA(1,NV),  NXVAR,  2) 

GO  TO  500 
C 

300  NV  «  IVAL 1 1  02 1 

IF  I  NV.FO.O  )  RETURN 

400  CALL  LNTPIXVAR,  VM,  XCL , YMI 1 ,NV) ,  NXCL,  2) 

CALL  LNTPIXVAR,  VAv  XCL , YAI I ,NV 1 ,  NXCL,  2) 

C 

500  YVAR  «  WAR  I  *  VM  *  VA 

C 

I F I  XPR I NT  I 241 . FQ.O  1  RETURN 

V"  TTp  1 6,  10001  ID,  VVARI,  XVAR,  VM ,  VA  ,  WAR 
1000  I  *AT15X,*ADJUST  DUMP*,  5X.  *10  »* , I  5/1 X ,5F15. 5  » 

RE  1  URN 
END 


RLTI266 
R1T1267 
R IT  1266 
RIT 1269 
R1T1270 
RIT 1271 
RIT. 1272 
RIT 1273 
RIT 1274 
RIT 1275 
RIT 1276 
R1T1277 
RIT 1278 
RIT 1279 
RIT 12  80 
R1T1231 
RIT 1282 
R1T1283 
RIT 1284 
RIT 1285 
RIT 1286 
RIT 1287 
RIT 1288 
RIT 128° 
RIT 1290 
RIT 1291 
RIT 1292 
RIT1293 
RIT1294 
RIT 1295 


CC  *  00030 
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r“32. 


CM  4*  IA 


c 

c 

c 

c 

c 

c 


c 


( 

c 


c 

c 

c 


c 


c 

c 


BLOCK  OAT  A 

COMMON  /8LK 901/  XSWPL(ll),  VRMIN(ll) 

COMMON  /BLKB02/  AAA(22),  BBB(22),  CCC( 22),  000(22),  XTT(22) 
COMMON  /8LKBD3/  BOT( 12) ,ATSW( 6) ,7PRT( 6) »FXAC1(216) ,FXAC2(216) 


COMMON  /BLK 804/ 
COMMON  / BLK 805/ 
COMMON  / BLKB06/ 

1 


XBD4( 5 ) »  YBD4( 5 ) ,  ZBD4( 3)  ,  FB04(5,5c35 

XOY0I 6) •  YXMNI6J,  £1805(6.6) 

X806(4),  YB06(4) ,  £B06( 6)  .  FB061 (4 « 4.6) » 
FbJ62 (4.4.6).  FBD63(4,4,6) 


COMMON 

COMMON 

COMMON 

1 

COMMON 

COMMON 

J 


/8LKMAP/  MAP,  TRANS.  OY.  AMAP(22).  BMAP(II) 

/BLK  T  22/  X1NL3U0).  YINL3I7).  Z0UT13  (10.7)  .  Z0UY14(10.7) 
/BLK A  15 /  NXIN15 ,  XIN1546),  NYIN15,  YIN15<5), 

FOUT 15(6.5).  F0UT16 (6.5) 

/BLKCLB/  XU6),  YU6J,  X9(  B) .  Y9(8).  XAR(5).  YDCK5) 

/BLK A  16/  XSHP ( 7 ) .  YTR( 4) .  FEP35(7,4),  FEP7I7.4). 

XCLDB (  7 )  ,  YAKBC 7) 


COMMON  /BLK MAX/ 


COMMON  /Hi,  .*<2 / 

1 

COMMON  /,.!  *Y?/ 

COMK.IN  ,  .  ,/ 

COMMOf  * :;l  ‘  <X5/ 
COMMON  /&LKMX6/ 
COMMON/BLKHX7/ 
COMMON/ BLK MX8/ 
COMMON  /BLKMX9/ 


1 


XTR  (  6  )  v  YC1(  6)  *  YC2(6),  XSWPK4),  YA(4). 

Y0  (  4 1 .  XD  V ( 0 )  ,  XMC4).  CTA8(8.4),  0TAB(8.4). 
XXCLMl  13)  ,  VYDY(6) •  FCLMX(13,6K  XXC2(9), 

YYMACHli  5  J  .  F0CLMX(9,5)  ,XDYl(9)  ,  YXMT(4). 

£C 1MAX( 9.4 ) ,  XD Y2(  8) ,  YF0C(6),  ZDC1M(8.6). 
ZTOCIMI 8.6) 

KSP  (  81.  YD YA( 6 ) .  FDA( 8.6).  XAB(6).  YC0I8), 
'■•KVOFMl  6.8).  XANGUO),  YRT0C(7),  FRA(10,7) 

SPAN( 6 ) .  YTPR( 4) .  FKB(6.4),  FKS(6),  FKD(6.4) 
XC2(6),YAST(9).FDAM(6.9) ,XCT(6) ,YM(5) ,FDAM2(6.5) 
XXXCLM! 9 ) .  FC L MXX ( 9.6) 

XX( 12).  XY( 7) »  XF( 12.7) 

SPANZ(ll),  YTPR2(5),  »=KSW(11,5) 

SPAN3 ( 6 ) .  YTPR  3(4).  FKM(6.4) 

SPAN4J5),  YBFIU5),  FKA(5,5), 

SPANS ( 5 ) .  YBF 12(3).  FKF(5»3) 


DATA  XSMPL  /  0. 0, . 174 53, . 34906, . 5236, .65813 , .87266, 1.0471 9 , 

1  1. 13446, 1.22173, 1.34390, 1.57079  /, 

2  YRMIN  /  0.53,  0.53,  0.52,  0.515,  0.505,  0.49,  0.45, 

3  0.39,  0.30,  0.12,  0.10  / 


DATA  ROT  /  0.0,  .4,  .8,  1.2,  1.6,  1.8,  2.,  2.4,  2.8,  3.2, 3.6, 4./ 

1  ATSW  /  I..  2.,  3.,  4.,  5.,  6.  /, 

2  TPRT  /  0.,  0.2,  0.25,  0.33,  0.5,  1.0  / 


FIG.  4.1.4.2-22  DATCOM  **+* 

DATA  FXAC1/.25, .24, .23, . 22, .20, . 18, . 17, .25,. 32 , .37, .40 , .42 , 

1  7*0.335,  .39,  .44,  .48,  .495.  .5, 

2  .42,  .44,  .45,  .46,  . 465 , . 475,. 50,  .56,  .56,  .57, 2*. 58, 


R1T1297 
R1T1298 
R1T1299 
R  IT  1300 
R IT  1301 
R  IT  1302 
R1T1303 
R1T1304 
R1T1305 
R1T1306 
R1T1307 
R1T1308 
R1T1309 
R1T1310 
R1T1311 
R1T1312 
RiT 13’ ^ 
RlT13i  . 
RIT 1315 
RIT 1316 
RIT 1317 
RIT 1318 
RIT 1319 
RIT 1320 
RIT 1321 
RIT 1322 
RIT 1323 
RIT 1324 
RIT 1325 
RIT 1326 
RIT 1327 
RIT 1328 
RIT 1329 
RIT 1330 
RIT 1331 
RIT 1332 
RIT 1333 
RIT 1314 
RIT 1335 
RIT 1336 
RIT 1337 
RIT 1338 
RIT 1339 
RIT 1340 
RiT 1341 
RIT 1342 
RIT 1343 
RIT 1344 
, RIT 1345 
RIT 1346 
RIT 1347 
RIT 1348 
RIT 1349 
Rll 1350 
RIT 1351 
RIT 1352 
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WPsJr- 


c 

c 


3 

.50,  .53,  .55,  .575 

,  .60, 

.62,  6*0.i 

67. 

R1T1353 

4 

.58,  .62,  .66,  .695 

,.73, 

.755,. 83, 

.78, 

.78, 

.765 

,.75, 

.75, 

JUT  1354 

5 

.68,  .72,  .76,  .79, 

.83, 

. 7  65 , . 98 , 

.90, 

.90, 

.87, 

.85, 

.84, 

RIT1355 

6 

.29,  .27,  .25,  .25, 

.23, 

.215, .20, 

.28, 

.33, 

•  39  r 

.44, 

.46, 

RIT1356 

7 

.40,  .41.  .41,  .405 

,  .  40, 

.40,  .40, 

.48, 

.52, 

.54, 

.56, 

.57, 

RIT1357 

8 

.51,  .53,  .54,  .555 

,.57, 

•  58,  *  60 , 

.65, 

.665 

»  «  68, 

.69, 

.69, 

R1T1358 

9 

.64,  .66,  .68,  .70, 

.73, 

.To,  .795 

,  .  80, 

.  B 1 , 

.815 

*.805 

•  .80, 

R1T1359 

A 

.T5,  .77,  .80,  .82, 

.87, 

.91,  .97, 

.955 

*.95, 

.  96 , 

.93, 

.92, 

R1T1360 

8 

.87,  .895, .915, .945 

,1.0, 

1.05,1.15 

,1.12 

,1.1, 

1.1. 

1.05 

,1.03, 

R IT  1361 

C 

.30,  .29,  .275, .26, 

.245 

,.24,  .23, 

.30, 

.35, 

.40, 

.45, 

.475. 

R1T1362 

D 

.41,  .42,  .425, .425 

, .  42 , 

.415, .41, 

.50, 

.54, 

.57, 

.595 

,  .60, 

R1T1363 

F 

.54,  .555, .57,  .58, 

.60, 

.61,  .63, 

.68, 

.69, 

.71, 

.72, 

.72, 

R IT  1364 

F 

.67,  .69,  .71,  .73, 

.  76  , 

.79,  .82, 

.83 , 

.845 

,.865 

»  •  85  , 

.845, 

R1T1365 

G 

.80,  .82,  .84,  .86, 

.  90, 

.95,  1.02 

,1.01 

,1.0. 

1.01 

,.98, 

.97, 

R1T1366 

H 

.93,  .95,  .97,  .99, 

1.05 

,1.1,  1.25 

,1.2, 

1.16 

,1.17 

,1.11 

,1.1/ 

R1T1367 

DATA 

FXAC2  / 

R1T 1368 

I 

.32,  .31,  .30,  .28, 

.25, 

.24,  .23, 

.31, 

.37, 

.42, 

.475 

,.50, 

R1T1369 

J 

.45,  .46,  .46,  .455 

,  .45  , 

.445, .44, 

.54, 

.57, 

n  60  , 

.63, 

.64, 

R1T1370 

K 

.595. .60,  .61,  .62, 

.64, 

.65,  .665 

»  .  72  , 

.74, 

.76, 

.78, 

.775, 

RIT1371 

L 

.73,  .745,. 765,  .78, 

.80, 

.83,  .88, 

.89, 

.90, 

.93, 

.92, 

.91, 

R1T1372 

.89,  .90,  .91,  .93, 

.96. 

1.0,  1.07 

,1.08 

,1.08 

,1.1, 

1.0a 

,1.05, 

R1T1373 

N 

1.04, 1.05,1.06, 1.09 

,  L.12 

.  1. 17,1.27 

,1.26 

,1.25 

,1.26 

,1.21 

,1.2. 

R1T1374 

0 

.36,  .34,  .325, .31, 

.30, 

.275, .25, 

.34, 

.41, 

.48, 

.52, 

.55, 

R1T1375 

P 

.52,  .52,  .52,  .52, 

.51, 

.505, .50, 

.60, 

.63, 

.67, 

.71, 

.72, 

RLT1376 

0 

.70,  .70,  .705, .71, 

.72, 

.735, .75, 

.  80  , 

.82, 

.87, 

.89, 

.89, 

R1T1377 

R 

.88,  .885, .89,  .90, 

.915 

,  .  94  ,  .  98  , 

1.0, 

1.02 

,1.07 

,1.05 

.1.05. 

RIT1378 

1.04, 1.05, 1.05, 1.06, 1.09, 1.12,1.19,1.2,  1.22,1.26,1.22,1.21. 
1.2,  1.21,1.22,1.24,1.27,1.3,  1.36,1.4,  1.42,1.45,1.4,  1.38, 
.50,  .48,  .46,  .44,  .40,  .38,  .34,  .42,  .50,  .60,  .70,  .76, 
.75,  .75,  .745. .74,  .72,  .70,  .68,  .73,  .80.  .88,  .97,  1.0. 
5*1.0,  .98,. 96, 1.01, 1.08, 1.19,1.22, 1.23, 

5*1.24, 1.23, 1.2,1.29,1.38,1.48,1.48,1.49, 

5*1.49, 1.47,1.44, l. 55,  1 .66, 1. 77, 1 . 73 , 1.  75 , 

3*1.74,1.73,1.71, 1.70,1.68,1.81,1.96,2.06,1.98,2.0  / 


**  FIGURF  4. 1.4. 1-2  ,  DATCOM  ****** 

DATA  XB04  /  0.0,  .34907,  .69813,  .87267,  1.0472  /, 
YB04  /  0.0,  1.5,  3.5,  6.0,  10.0  /. 

ZBD4  /  0.0,  0.5,  1.0  /, 

FBD4  /  5*0.0,  0.0,  0.0,  0.0,  -.0002,  -.0005 
0.0,  -.0007,  -.002,  -.0027,  -.0037, 
0.0,  —.0019,  —.0044,  —.006,  —.008, 

0.0,  —.008,  —.016,  — c 02 1  ,  —.0265, 


U.U,  —  *UUoi  -.uio,  — . l  ,  -.uio?, 

5*0.0,  0.0,  -.0002,  -.0006,  -.001,  -.0012, 

0.0,  -.0013,  -.003,  -.004,  -.0052, 

0.0,  -.0031,  -.0066,  -.0088,  -.012, 

0.0,  -.000,  -.016,  -.0207,  -.026  / 

DATA  XDYO  /  0.8,  1.1,  1.4,  1.6,  2.0,  2.4  /, 

YXMN  /  0.2,  0.3,  0.4,  0.5,  0.6,  0.7  /, 

l 1BD5/  3.7(4,4.395,5.432,6.348,6.545,11.231,  4.029,4.517, 
5. 249, 5.982,7.874, 10.254,  4.395,4.639,5.127,5.616, 


R1T1379 
R IT  1380 
R1T1381 
R1T1382 
RIT13B3 
R1T1384 
R1T1385 
R1T13B6 
KIT  1387 
R1T1388 
R1T1389 
R1T1390 
R1T1391 
R1T1392 
R1T1393 
R1T1394 
R1T1395 
R IT  1396 
RIT1397 
RIT1398 
R1T1399 
R1T1400 
R1T1401 
HIT  1402 
R1T1403 
R1T 1404 
R1T1405 
R1T1406 
R1T1407 
R1T 1408 


120 


7.081,8.973,  4. 7,4.834,5.127,3.432 ,6.287 ,7.691 , 
5.371,3.213, 5.188,5.31,5.799,6.836, 

6.226, 5.738,5.432,3.335,5.616,6.409  / 


8 IT  1409 
R1T1410 
R1T141 1 
R1T 1412 
R1T1413 
R1TL414 
R IT  14 15 
R1T1416 
R IT  14 1  f 
R1T1418 


FIGURE  4.1.4.2-25  0ATCC1M  *44**  R1TL414 

DATA  X6D6  /  0..  1.,  2.,  3.  ✓,  R1T1415 

1  V 806  /  -2.,  -1.,  0.,  1.  /,  R1T1416 

2  ZB06  /  0.,  1.,  2.,  3.,  4.,  5.  /,  R1T1417 

3  FB061  /  0.,. 125,. 16, .17,0. ,.115, .17, .2,0., .15, .195, .195,0.,  R1T1418 

4  .165, .2, .2,. 18, .26, .28, .3. .18. .2 7, . 305 , . 32 , . 1 8, .285, . 32 , . 32 ,. 18,  R1T14T' 

5  .3,24.32, .34,. 39,. 4, .412,. 34, .405, .435 ,.45 , . 34, .425 ,2*.445, .34,  R1T142U 

6.445. . 45. .45. .5. .505. .5 15 . . 53. . 5. . 525 . . 54 .. 55 . . 5 . . 545 .2*. 55 , .5 , 3*  R IT  1421 

7.55.  .665, .62, .623, .626, .665, .653, .66, ,665. 8*. 665,  R1T1422 

8  .815, .73, .728,. 722, .815, . 775 , . 778 ,. 76 , . 81 5 ,. 79 ,. 78 , .7B , .815,  R  IT  1423 

9  34.775  /  R1T14Z4 

DATA  F B06  2  /  0. , .135,. 17, .186,0. ,.12, .19, .215,0. ,.175, 24.215, 0...2R1T142S 

1.24.235. . 2. .28. .2 98. . 314 . . 2. . 3 . .35. . 365 . . 2 ». 32 ,24. 36 , .2 ,. 365 ,2* .38R1T 1426 


2,  .4, .43, .44, .45, .4,. 47, .495, .508,. 4, .49, 2*. 51 ,.4, 3*. 52, 

3  .6, .575, .578, .58, .6, .61, .63, .65, .6, *64, 24.65, .6, 34. 65, 

4  .8, 34. 72,. 8,. 77,. 78, .792,. 8,. 795 0.792,. 79,. 8, 34.78, 

5  .98, .64, .83, .82, .98. 3*. 92, .98, .925, 2*. 915, .98, 3*. 805  /, 


R1T1427 
R1T 1428 
RIT1429 
R1T1430 


6  FBD63  /  0.,. 15, .18, .2,0. ,.135, .23, .28,0. ,.2, 24. 275,0. ,.24.24.28,  R1T1431 


7  .26,. 35, .365, .38,. 26,. 365,. 42,. 4  5,. 26,. 405, 24. 455,. 26, 34. 475,  R IT  1432 

8  .5. .535, .55,. 565,. 5, .585 , . 61 , . 63 , . 5, . 605 ,2*. 63 ,. 5 , 34.65,  HIT  1433 

9  .75, 3*. 735, .75, .78, .795, .81, .75, 34. 8, .75, 34. 82.  RIT1434 

1  .98, .905, .895, .885,. 98, 34. 95.. 98,. 95, 2*. 945,. 98, 3*. 9b,  R1T1435 

2  1.17,  1.06,  1.03, 1.,  1.17, 1.1,1.08,1.065,1.17,1.09,2*1.065,1.17,  R IT  1436 

3  34  1 .08  /  R1T1437 

RLT14J8 

DATA  X  IN  1 3/  0.0,1.,  2.,  3.,  4.,  5.,  6.,  7.t  8.,  20.  /,  R1T1439 

1  Y IN  13/  0.0,  20.0,  35.0,  50.0,  65.0,  72.5,  90.0  /,  R1T1440 

2  Z0UT13/  .00973, .00973, .0093, .009, .0089, .0007,4*0. 0086,  R1T1441 

3  .00973, .00973, .0093, .009, .0089, .0087, 4*0.0086,  R1T1442 

4  .0097,  .0097, .00927, .00902,. 0089, .00872, 4*. 00862,  R1T1443 

5  . 0096, .0096, .0092, .009, .0089, .00872 ,  4*0.00863,  R1T1444 

6  .00943, .00943, .00897, .008B2,. 00875, .0086, 4*. 00854,  R1T1445 

7  .0093, .0093, .0088, .0087, .00862, .0085,4*0. 00844,  R1T1446 

8  .0093, .0093, .0088, .0087, .00362, .0085, 4*0.00844  /  R1T1447 

DATA  ZOIIT  14/  1.28,  1.28,  1.27,  1.25  2,  1.244,1.233,1.227,1.217,2*1.21.  R  IT  1448 
i  1.28, 1.28, 1.27, 1.252. 1.244,1.233,1.227,1.217,2*1.21,  R1T1449 

!  1.324, 1.324, 1.311, 1.295,1.281 ,1 .266,1. 258 , l .24 , 2*1 . 23, R1T 1450 

I  1.36  3,1  .36  3,  1.3  5,1.3  3,1.313,1.292,1.283,1.261,2*1.25,  R IT  1451 

>  1.392,1.392,1.38,1.36,1.339,1.317,1.303,1.279,2*1.27,  R1T 1452 

>  1.403,1 .403, 1.392, 1.3 71, 1.349, 1.325, 1.31,1. 285, 2*1. 28, R IT  1453 

>  1.403, 1.403, 1.392, 1.3 71, 1.349, 1.325, 1.3 1, 1.285, 2* 1.28/R IT  1454 

R1T 1455 

DATA  AMAP  /  22.0,  21.7,  19.2,  18.35,  22.0,  21.2,  19.2,  27 .0 , 1 1 . 75 , KIT  1456 
L  24. ,24. ,22. ,20. ,20. ,19. ,17. ,15. ,29. ,27. ,25. ,  2*0.  /,  R1T1457 


2  BMAP  /  4  *  1.75,  3  *  2.0,  4  *  0.0  / 

DATA  NX  IN  15/  6  /, 

1  X  IN  15/  0.0,  0.5,  0.6,  0.8,  0.9,  1.0  /, 

2  NY  IN  1 5/  5  /, 

3  YIN15  /  0.0,  5.0,  15.0,  20.0,  23.0  /, 

4  FOUT 15/  0.865,  0.756,  0.71,  0.6,  0.51,  0.45, 


R1T1458 
R1T  1459 
R1T1460 
R1T1461 
R IT  146? 
R IT  146  i 
R IT  1464 


m 


0.665*  0.756.  0.71*  0.6.  0.51.  0.45.  R1T1465 

0.925.  0.965*  0.958*. 905*. 845,  0.78.  R1T1466 

0.578.  1.02, 1.03,  1.02,  0.99,  0.975,  R1T1467 

0.99,  1.04,1.05,  1.05,  1.045,1.04  /,  RIT 1468 

POUT  16/  6  *  1.05,  1.05,  1.04,  1.02  ,.94  ,.88, .84,  R1T1469 

1.05*  1.05,  1.04,  1.01,  0.995,  0.985,  R1T1470 

6  *  1.05,  6  *  1.05  /  R1T1471 

XI  /  0.7243,  0.8727,  1.0472,  1.2217,  1.3963,  1.5708  /,  R1T1472 

Y 1  /  0.85,  0.69,  0.575,  0.51,  0.483,  0.48  /,  R1T1473 

X9  /  0.3665, 0.5236, 0.6981 ,0.8727, 1.0472, 1.2217, 1.396?, 1.6/, R1T 1474 

Y9  /  0.85, .625, .435, .35, 0.375, 0.447, 0.478,  0.48  /.  R1T1475 

XAR  /  1.0,  2.3,  3.0,  4.0,  5.0  /,  R1T1476 

YOCL  /  >0.16,  0.0,  0.05,  0.085,  0.0855  /  R1T1477 

R IT  1478 

AAA  /  B.48243P-4,  8.03417F-4,  3.31322E-6,  -1.72323E-3,  R1T1479 

2. 02978E- 3,  1.36146F-4,  3.79206E-5,  15  *  0.0  /.  R1T1480 

0B0  /  -.0296429,  -.0349676,  -.0142049,  .0310185,  R1T1481 

-.07305,  -4.05767E-3,  -1.03545E-3,  15  *  0.0  /,  RIT1482 

CCC  /  1.23835,  1.15999,  1.03825'  0.585837,  1.57142,  . 712684, R1T 1483 


.639394,  0.0,  0.0,  5  *  1.1019,  3  *  .275475, 

3  *  3.3057,  0.0,  0.0  /, 

000  /  -2.47002,  -1.71448,  -1.9292,  -.559968,  -2.99739, 
.0188291,  .0607728,  15  *  0.0  /, 

XTT  /  .35,  .375,  .41,  .45,  .37,  .39,  .42,  .371,  .5,  .2, 
.3*  .4,  .5,  .6,  .3,  .4,  .5,  .3,  .4,  .5,  0.0*  0.0  / 
XSUP  /  0.0,  10.0,  20.0,  30.0,  40.0,  50.0,  60.0  /, 

YTR  /  0.0,  0.25,  0.5,  1.0  /, 

FFP35  /  0.94,0.951,0.96,0.968,0.973,0.974,0.971, 

0.992,0.995,0.997,0.999,0.998,0.992,0.984, 
1.0,1.0,0.999,0.997,0.988,0.971,0.944, 
0.996,0.992,0.986,0.975,0.959,0.93,0.863  /, 

FEP7  /  0.89,0.907,0.923,0.936,0.944,0.948,0.942, 

0.99, 0.994,0.996,0.998,0.991,0.978,0.956, 

0. 996,0. 992, 0.9B7, 0.98. 0.961 ,0.924,0.86, 

0.986, 0. 968, 0 .942 vO. 91,0. 874,0.833,0.79  / 

XCLDB  /  0.0,  0.3,  0.4,  0.5,  0.6,  0.7,  2.0  /, 

YAKB  /  0.33. 0.352, 0.44*, 0.625, 1.0, 1.47,  2.0  / 


RIT 1484 
R1T1485 
RIT  1486 
RIT 148  7 
RIT 1488 
RIT 1489 
RIT 1490 
RIT 1491 
RIT  1492 
RIT 1493 
RIT 1494 
RIT 1495 
RIT 1496 
RIT 1497 
RIT 1498 
RIT 1499 
RIT 1500 
RIT 1501 
RIT 1502 
RIT 1503 


DATA 

XTR 

/ 

0.0,  0.1,  0.2*  0.3,  0.5,  1.0  /, 

RIT 1504 

1 

YC1 

/ 

0.0,0.225,0.47,0.5,0.32,  0.0  /, 

RIT 1505 

2 

YC  2 

/ 

0.0,0.22,0.5,  0.91,  1.05,  0.85  /, 

RIT 1506 

3 

XSWP1 

/  0.0,  30.0,  50.0,  60.0  /, 

RIT 1507 

4 

YA 

/ 

0.9,  1.04,  1.2,  1.3  /, 

RIT 1508 

5 

YB 

/ 

0.0,  0.24,  0.5,  0.71  /, 

RIT 1509 

6 

XDV 

f 

u«ui  i.u,  /  .  2  d  ,  ■  1 ,  3.  U,  4.U,  4.5,  1 U. 0  /  , 

R  IT  15 10 

7 

XM 

/ 

0.2,  0.4,  0.6,  1.0  / 

HIT  15 1 1 

DATA 

CTAB 

/ 

8  *  0.0,  -.02,-. 02, -.26,-. 32, -.355, -.41, -.445, -.45, 

RIT  1512 

.12*.  12,  -.36,  -.43,  -.5*  -.64.  -.72,  -.72,  R1T1513 
.58, .58,  -.15,  -.34,  -.57,  -.76,  -.92,  -.92  /,  R1T1514 
8  *  0.0,  -.085,-. 085,  .02,  .055,  .045,  .02*. 02, .02,  R1T1515 
-.2,  -.2,  -.01,  -.02,  -.03,  -.07,  -.09,  -. 09,8*0. 0/.R1T1516 
0.0*  .2  *  .4*  .6*  .8,  1.,  1.2,  1.6*  2*0,  2.4,  2.B,  R1T1517 
3.2,  4.4  /,  RIT 1518 
0.0,  .25,  .5,  .75,  1.0,  10.0  /  R1T1519 
0.9,  1.375,  1.57,  1.645,  1.645,  1.575,  1.4,  1.14,  R1T1520 


2 

DTAB 

/ 

8  *  0.0,  -.085,-. 

3 

—.2,  —.2,  —.01,  — 

4 

XXCLM 

/ 

0.0,  *2,  .4,  .6, 

5 

3.2,  4.4  /, 

6 

YYDY 

/ 

0.0,  .25,  .5,  .75 

DATA 

FCLMX 

/ 

0.9,  1.375,  1.57, 

122 


8 

1.02, 

.96, 

.92, 

.91, 

.  9  ,  . 

9 

1.56, 

1.5, 

1.33 

,  1.11 

,  1.0, 

1 

.  68 , 

1.19, 

1.4, 

1.47  k 

1.475, 

2 

.975, 

.92, 

.88. 

.85, 

•  84 , 

3 

1.385 

.  1.33 

•  !• 

23,  1. 

06,  .96 

XXC2 

YYMACH 


.975,  .92,  .88,  .85,  .84,  .6,  l.i,  1.3,  1.375, 

1.385,  1.33,  1.23,  1.06,  .96,  .9,  .865,  .84,  .83, 
.4,1.02,  1.2,  1.29,  1.31,  1.27,  1.19,  1.04,  .94, 
.88,  .84,  .83,  .82,  .4,  1.02,  1.2,  1.29,  1.31, 

1.27,  1.18,  1.02,  .91,  .85,  .82,  .8,  .8  /, 

/  0.0,  2.0,  4.,  6.,  8. ,  10.,  12. ,  14.,  20 . / , 

/  0.0,  0.2,  0.4,  0.6,  1.0  /, 


XDY  1 
YXHT 
ZC1MAX 


XDY2 

YFDC 

ZDC1M 


HIT  1521 
KIT  1522 
KIT  1523 
KIT  1524 
KIT  1525 
R1T1526 
R1T1527 
KIT  1528 
R1T1529 
R1T1530 


9  FDCLMX 

/  -.11, 

-.08, 

0.0, 

.115,  .23,  .335,  .36, 

.22, 

0.0, 

R1T1531 

1 

-.11, 

-.08, 

0.0, 

.115,  .23,  .335,  .36, 

.22, 

0.0, 

RIT1532 

2 

-.11, 

-.08, 

0.0, 

•  la  • 2  v  • 3  t  • 32  «  • 18 v 

0.0, 

HIT  1533 

3 

-.11, 

-.08, 

0.0, 

•  0 8 »  • 15 t  *21 v  *205  t  • 

08, 

10*0.0/ 

RIT15J4 

R1T1535 

»+  FIGURE  4.1 

.1.4-5, 

DA  TCO* 

***** 

R1T1536 

R1T1537 

/  0.0,  1.1,  2.2 5,  2.5,  3.0,  3.5,  4.,  4.5,  6.  /,  R1T1538 

/  0.3,  0.35,  0.4,  0.45  /,  R1T1539 

/  0.6,  0.8,  1.315,1.43,1.58,1.58,1.54,1.47,1.41,  R1T1540 

0.8,  0.8,  1.3 IS, 1.43, 1.51, 1.52, 1.49, 1.41,1. 36,  A1T1541 

0.8,  0.8,  1.315,1.39,1.45,1.45,1.43,1.35,1.34,  R1T 1542 

0.8,  0.8,  1.3,  1.33,1.35,1.36,1.33,1.32,1.32/,  R1T1543 

/  0.0.1.0,2.0,2.2,2.4,3.0,5.2,10.0  /,  R1T1544 

/  0.0,  2.0,  4.0,  6.C,  8.0,  100.0  /,  R1T1545 

/  10+0.0,  0.1,  0.13,  0.15,  0.145,0.05,  0.0,  R1T1546 

0.0,  0.11,0.275,0.3,0.3,0.22,0.10,0.0,  R1T1547 

0.1,0.26,0.44,0.465,0.45,0.30,0.17,0.0,  RIT 1543 

0.2,0.40,0.60,0.620,0.60,0.39,0.25,0.0,  R1T1549 

0.2,0.40,0.60,0.620,0.60,0.39,0.25,0.0  /  R1T 1550 


DATA 

Z2DC1M/ 

9*0. 

,.15 

,.28, 

.28, 

.27, 

.18,  .07,  .07, 

R1T1551 

1 

.1. 

.28, 

.49, 

.47, 

.41, 

.26,  .12,  .12, 

R IT  1552 

2 

.2, 

.41, 

.61, 

.60, 

.55, 

.35,  .17,  .17, 

R1T 1553 

3 

.33, 

.52, 

.68, 

.65, 

.60, 

.39,  .20,  .20, 

R1T1554 

4 

.33, 

.52, 

.68, 

.65, 

.  60  , 

.39,  .20,  .20  / 

R1T1555 

R1T1556 

DATA 

XSP 

/ 

0.0. 

10.0 

,  20. 

0,  30 

0,  40 

i.O,  50.0,  60.0,  90.0/ , 

RIT 1557 

l 

YDYA 

/ 

0.0, 

1.2, 

2.0, 

3.0, 

4.0, 

50.0  /, 

R1T 1558 

2 

FDA 

/ 

1*8, 

2.2, 

3.4, 

5.0, 

7.4, 

10.2,  13.4,  13.4, 

RIT 1559 

3 

1.8, 

2.2, 

3.4, 

5.0, 

7.4, 

10.2,  13.4,  13.4, 

R1T 1560 

4 

0.1, 

l.lt 

2.3, 

3.9, 

5.8, 

6.75,  9.9  ,  9.9  , 

RIT 1561 

5 

1.3. 

1.7, 

2.4, 

3.2, 

4.2, 

5.3  ,  6.7  ,  6.7  , 

RIT 1562 

6 

2.2, 

2.0, 

2.1, 

2.3, 

2.5, 

2.85,  3.25,  3.25, 

RIT 1563 

n 

i 

•k  * 

.  c  , 

•i  n 
C«Uf 

2.1, 

"i 

c  , 

2.5, 

,  ac  *  "» c  *  tc  / 

,  D  m  f.  J  f  J.A.J  / 

n  it  l  c  /  /. 
i'll  1  JWY 

R1T 1565 


OAT  A 

XAB 

/ 

0.0, 

1.0,  2 

.0,  3. 

0,  4.0 

,  6.0  /, 

RIT 1566 

1 

YCO 

/ 

-I.. 

-.75, 

-.5,  - 

.25,  0 

.0,  .25,  .5,  .75  /, 

RIT 1567 

2 

FKVOFM 

/ 

1.57, 

1.74, 

2.02, 

2.30, 

2.58,  2.75, 

R IT  1568 

3 

1.78, 

1.95, 

2.18, 

2.52, 

2.85,  2.90, 

RIT 1569 

4 

2.03, 

2.21, 

2.42, 

2.71, 

3.00,  3.15, 

RIT 1570 

5 

2.48, 

2.60, 

2.73, 

2.93, 

3.19,  3.33, 

RIT 1571 

6 

3.13, 

3.15, 

3.20, 

3.28, 

3.45,  3.60, 

RIT 1572 

7 

3.79, 

3.80, 

3.81, 

3.82, 

3.88,  3.98, 

RIT 1573 

8 

6*4 

.45,  6 

*  5.0 

/ 

RIT 1574 

DATA 

XANG 

/ 

0  •  0  «  • 

0698,  . 

1396,. 

2094,. 

2792, .34 90, .4188, .48 06, 

RIT 1575 

,5584,  0.6980  /, 


Rif  1576 


YRTOC  /  O.O.  0.03,  0.05,  0.08,  0.12,  0.16,  0.5  /,  R1T1577 

FRA  /  0.45 ,0.245 ,0.075,  7*0.0,  R1T1578 

1.0, .62, .40, .255, .19, .148, .11, .079, .05,  0.0,  R1T15I9 

1. 0, .84,. 72, .48, .34, .252, .195,. 142, .1,  0.0.  R1T1580 

1.0, .90, .858, .758, .618, .46, .345, .25,  .17,  0.0,  R1T1581 

1.0, .917, .885, .814, .72, .62, .51  ,.38,  .23,  0.0,  R1T1582 

1.0, .925, .895, .835, .76, .665, .565,  .46,  .35,  0.0,  R1T1583 

1.0, .925, .895, .835, .76, .665, .565,  .46,  .35,  0.0  /  R1T1584 

RIT1585 


OATA 

SPAN 

/ 

0.0, 

0.2,  0*4,  0.6,  0.8,  1.0  /, 

RIT 1586 

1 

YTPR 

/ 

0.0, 

0.25,  0.5,  1.0  /, 

RIT 1587 

2 

FK  8 

t 

0.0, 

0.3,  0.555,  0.77,  0.925,  1.0, 

RIT 1588 

3 

0.0, 

0.28,0.53,  0.75,  0.915,  1.0, 

RIT 1589 

4 

0.0, 

0.265,  0.51,  0.73,  0.9,  1.0, 

RIT 1590 

5 

0.0, 

0.25,  0.48,  0.7Q,  0.885,  1.0  /, 

RIT 159 1 

6 

FKS 

/ 

0.0, 

0.31,  0.63,  0.85,  0.945,  1.0  /, 

RIT 1592 

7 

FKD 

/ 

0.0, 

0.38,  0.64,  0. 84,  0.965,  1.0, 

RIT 1593 

8 

0.0, 

0.295,  0.54,  0.74,  0.9,  1.0, 

RIT 1594 

9 

0.0, 

0.24,  0.475,  0.68,  0.855,  1.0, 

RIT 1595 

1 

0.0, 

0.2,  0.4,  0.6,  0.8,  1.0  / 

RIT 1596 

DATA 

XC2 

/  o.o,  l.o,  2.0,  : 

1 

VAST 

/  0.0.  2.0,  3.0,  ■ 

2 

FOAM 

/  L0«i7*t4afl«5f0i 

3 

7«5i  4# 1 1 • 

4 

3. ,-1.5, -4. 1,-3 

5 

3  »"6«  5» -5 •  t“! 

6 

—  B.,  —  7.,— 5.  ,  —  3  • 

7 

XCT 

/  4.0,  6 • 0«  8. Of 

8 

YM 

/  0*2?  0«4f  Oa  6*  i 

9 

F0AM2 

/  0  •  ,  1  •  5  «  4  «  t  7  «  2 1  1 

l 

0., a  3 1 1.5, 3.2, 5 

2 

Oa,  •  8  f  3a,  6a, 

DATA 

XXXCIM 

/  0.0,  . 2 ,  •  4 ,  . i 

1 

FCLMXX 

/  0.7,1.2,1.37,1 

1 

.65, 1.12,1*29, 

2 

.6, 1.09,1.23, 1 

3 

.55,1.0,1.15,1 

4 

.5, .91, 1.09, 1. 

5 

.5, .91, 1.09,1. 

DATA 

XX  / 

0.0, .4, .8, 1.0,1. 

1 

A 

wv  / 

0., *  1 309- - 1 745. « 

>5,8.6,  0. , 0. , . 5 , 2 . ,4 . , 7. , 
9.5,  13.5  l 


l  XF  /  8*1.0, .915, .63, .29,0.0, 

1  8*1.0, .915, .63, .29,0. 0, 

i  7*1.0, .915,. 755, .52, .245, 0.0, 

>  1.0, .97, .95, .97, 1.0 ,.55,. 87,. 69,. 552,. 38,. 165 ,0.0, 

>  .92, .90, .90,. 95, 1.0,. 95,. 845 ,.63,. 48,. 3 l,. 150, 0.0, 

r  . 79, .80, .84,. 91,1.0,. 945,. 83,. 5 85  .  .425 , .27 , . 1 28 ,0. , 

3  .79, .80,. 84 ,.91,1.0,. 945 , .83, .585, .425, .2 7, .128,0.  / 

DATA  SPAN2  / 0.0 , 0. 1 , 0.2 , 0. 3 , 0. 4, 0. 5 ,0.6 ,0.7 , 0. 8 ,0. 9 , 1 .0  /, 

L  YTPR2  I  0.0,  0.2,  0.333,  0.5,  1.0  /, 

?  FKSW  /  0.0,  0.0285,  0.0435,  0.0490,  0.0480,  0.0417, 

?  0.0320,  0.0212,  0.0112,  0.0035,  0.0, 


RIT1597 
K1T1598 
RIT1599 
R1T 1600 
R1T1601 
R1T1602 
RIT1603 
R  IT  1604 
R1T1605 
KIT  1606 
R  IT  160  7 
R1T1608 
RIT 1609 
R1T1610 
RIT  1611 
RIT 1612 
RIT 1613 
RIT  1614 
RIT 1615 
RIT 1616 
HIT  1617 
RIT 1618 
RIT  1619 
KIT  1620 
RIT 1621 
RIT  1622 
RIT  1623 
RIT 1624 
RIT  1625 
RIT  1626 
RIT 1627 
RIT  1628 
RIT 1629 
RIT  16  JO 
RIT  1631 
RIT  1632 


4 

0.0, 

0.0310,  0.0460,  0.0345, 

0.0565, 

0.0530, 

R1T1633 

5 

0.0460, 

0.0350,  0.0240,  0.0120, 

0.0, 

R1T1634 

6 

0.0, 

0.0290,  0.0460,  0.0560, 

0.0590, 

0.0570, 

RIT 1635 

7 

0.0510, 

0.0410.  0.0290,  0.0150, 

0.0, 

R1T1636 

S 

0.0, 

0.0270,  C.0450,  0.0560, 

0.0610, 

0.0600, 

RIT 1637 

9 

0.0545, 

0.0450,  0.0330,  0.0180, 

0.0, 

R1T1638 

1 

0.0, 

0.0225,  0.0400,  0.0523, 

0.0605, 

0.0620, 

RIT  1639 

2 

0.0600, 

0.0520,  0.0400,  0.0230, 

0.0  / 

RIT 1640 
RIT 1641 

DATA 

SPAN 3  /  0.0, 

0.2,  0.4,  0.6,  0.8,  1.0 

/, 

RIT 1642 

1 

YTPR3  /  0.0, 

0.25,  0.5,  1.0  /, 

RIT 1643 

2 

FKM  /  0.0, 

0.645,  1.045,  1.240,  1. 

320,  1.330, 

RIT 1644 

3 

0.0, 

0.440,  0.760,  0.955,  1. 

070,  1.120, 

R1T1645 

4 

0.0, 

0.310,  0.575,  0.775,  0. 

930,  1.030, 

RIT 1646 

5 

0  •  0  v 

0.200,  0.400,  0.600,  0. 

800,  1.000  / 

RIT 1647 

DATA  SPAN4 

/ 

0.0, 

0.4,  0.8,  1.6,  2.4  / , 

RIT 1648 

1  YBFIl 

/ 

0.0, 

0.03,  0.1,  0.15,  0.2  /, 

RIT 1649 

2  FK  A 

7 

0.0, 

0.38,  0.68,  1.00,  1.13, 

RIT  1650 

3 

0.0, 

0.40,  0.74,  1.12,  1.32, 

RIT  1651 

4 

0.0, 

0.49,  0.83,  1.38,  1.75, 

RIT 1652 

5 

0.0, 

0.57,  1.05,  1.  81,  2.43, 

RIT 1653 

6 

0.0, 

0.70,  1.27,  2.34,  3.37  / 

RIT 1654 

DATA  SPANS 

/ 

0.2, 

0.4,  0.6,  0.8,  1.0  /  , 

RIT 1655 

l  YBFI2 

/ 

0.0, 

0.1,  0.2  /, 

RIT 1656 

2  FKF 

t 

4.00. 

1.60,  0.60,  0.17,  0.0, 

RIT 1657 

3 

3.40. 

1.55,  0.65,  0.26,  0.12, 

RIT 1658 

4 

2.96, 

1.46,  0.72,  0.40,  0.25  / 

RIT 1659 

END  RIT 1660 

CC  -  00364 


W  N>  N>  •“* 


c 

c 

c 


c 


r 

c 

r. 


OVERLAY (3, 1* 
PROGRAM  VGEOM 


COMPUTES  GEOMETRY  FOR  VAR  I ABLE- SWEEP  CONFIGURATIONS 

COMMON  /BLKVGM/  KPASS,  SWPLE ,  D08R,  CLDR,  aPNR,  SWLER,  SWQCR, 
SWMCR  ,  SNTER ,  TOCR,  TANSR,  DZ,  SXR,  SWPMCR, 
CBXR*  CTXR *  C BXPR ,  SOXPR,  ARXRR.  AROPR»  FOCR. 
DAI ,  OAC1.  OSWPi*  CPOCR, 

DAZ,  DAC2»  0SMP2*  OTOC 


COMMON  /BLKAOl/ 


N80DYS ,  NNACS.  N SURFS,  NHT, 


NVT t  ISWP,  NPNLS 


/BLKA02/  SREF,  AR,  TAPR,  SWPR, 

BLENI 101 ,  BMIO(IO),  BHGT(IO)  ,  BAWETIIO),  80(10), 
BNO(IO),  BAMXI10),  0AB$(10),  BLNS(IO),  BLBT(IO), 
BASE! lu) ,  ELEN(IO),  EWIDIIO),  EHGTI10). 
EAUET(IO),  EAMX(IO),  EINI10),  EXIT(IO),  ELNSI10) 
ELBTI 1  ~  •  EOF ( 10) ,  ENO(IO),  CBAR< 10) ,  TW, 

XLEW,  VWM,  YBDtCR ,  B02,  BFUS ,  FMISC,  AB,  AFTAW, 
CAM  3),  T0CI10),  AWE  T( 10) ,  SWMT,  SPLAN,  CONCL, 
TWIST,  ETWIST,  WINC,  XLE(ll),  CRW(ll).  YW(ll), 
XPIVOT,  VPIVOT,  XAPEX,  AFTSW,  AFTCB,  AFTOC, 

SBARI  10)  ,  TSIIO),  SC  AMI  10) ,  STOCUO),  SAWETI10), 
SMTSWI10),  SHF ( 10) ,  SWLI10),  SWT(IO),  STAPR(IO), 
SCR  (10),  HTLE »  HTY,  HTZ  ,  HTINC 


COMMON  /BLKG01/  FRBOO ( 10 ) , AR S( 10) , SSE X( 10) »F RNAC ( l 0 ) , SWP, SWPQC , 
SWPMC ,  SWPTE ,  OOB,  TOCW,  CLD,  SEXW,  ESWMC, 
SXX(IO),  XLESWX(IO),  XMCSWX ( 10) ,  ARW,  TR,  WPLAN, 
CB,  YR,  XB,  CRX,  CBX ,  CTX,  YIX,  VOX,  SIX,  SOX, 
ARI,  ARXR,  CBXP,  AROP,  SOXP,  SWPLE I ,  SWPLEC, 
SMPMCI,  SWPMCO,  ESWOC,  ESWLE,  ESWTE ,  CROB,  OXOB, 
XHT,  XCRTF,  XH,  OMEGA,  FOC,  TWIST,  DINC,  SWPMT, 
CBAR2,  CLOS,  TOCS,  SWET,  DXQC,  G1(8I) 


COMMON  /BLKPRT/  KPRINTI50) 

DIMENSION  X ( 6) ,  Y ( 6 ) ,  XT(6i,  YTI6),  0(6),  P(6) 


I F I  KPASS. EG. I  )  GO  TO  5 
I F ( SWPL  E.FQ.SWPR)  GO  TO  10 
IFl  KPASS. EQ. 2  )  GO  TO  20 
GO  TO  25 
5  D03R  =  DOB 
CLOR  *  CIO 
SWLER  -  ESWLE 
SWQCR  «  ESWOC 
SWMCR  «  ESWMC 
SWTFR  *  ESWTF 
ARWP  *  ARW 
TOCR  «  TOCW 
CBXR  -  CBX 

cvxr  *  ctx 

C8XPR  «  C8XP 


R1T1662 

R1T1663 

R1T1664 

R1T 1665 

R1T1666 

HIT  1667 

R IT  1668 

R1T16&9 

R1T1670 

R1T1671 

R1T1672 

R1T1673 

R  IT  16  76 

R1T1675 

R1T1676 

R1T1677 

R  IT  16  70 

R  IT  16  79 

R IT  1680 

R  IT  1681 

R1T1682 

R1T1683 

R IT  1684 

R1T 16BS 

R IT  1686 

R1T1687 

R IT  1688 

R1T1689 

R1T1690 

R1T1691 

Rif  1692 

R1T1693 

R1T1694 

R1T1695 

R 1 T 1696 

R1T1697 

R  IT  1698 

RIT1699 

R IT  1700 

RlTl^Ol 

R1T1702 

R1T1703 

R IT  1704 

R1T1705 

R IT  1706 

R1T1707 

RIT1708 

R1T1709 

R IT  1710 

R1T1711 

R1T171Z 

R1T1713 

R1T1714 

R1T1715 

R1T1716 

KIT  17 l 7 


126 


o  o 


! 

i 

;; 


SOXPR 

m 

SOXP 

RIT1718 

ARXRR 

X 

ARXR 

R1T1719 

AR02R 

x 

AR0P 

R1T 1720 

FOCR 

m 

FOC 

R1T1721 

SXR 

X 

SXXtNPNLSI 

R1T1722 

SWPMCR 
GO  TO 

X 

15 

XMCSWX(NPNLS) 

R1T1723 

R1T1724 

R1T1725 

R1T1726 

DOB 

m 

DOBR 

R1T1727 

TR 

m 

TAPP 

R1T1728 

CLD 

M 

CL  DR 

R1T 1729 

CBAR2 

M 

CBARJNPNLS  > 

RIT1730 

TWIST 

* 

TWIST 

R1T1731 

CINC 

X 

WINC 

R1T1732 

SWPMT 

X 

SWMT 

R1T1733 

WPLAN 

X 

SPLAN 

RIT1734 

ARM 

JB 

ARWP 

RJ  1735 

CLDS 

X 

CAM(MPNLS) 

R1  1736 

TOCS 

X 

T0C1NPNLS) 

Rl.  1737 

SWCT 

= 

AWET C NPNLS ) 

R1T173B 

DXUC 

M 

XLFl  1*NPNLS)+CRW(  1+NPNLSI*0.25  -XLE  C 1 1  -CRW<1>*0.25 

R1T 1739 

CLD 

X 

CL  DR 

RIT1740 

DOR 

. 

DOBR 

R IT  1741 

TOCW 

■ 

TOCR 

R1T1742 

SXX(NPNL1 

S)  =  SXR 

R1T1743 

xleswxinpnlsi*  swpr 

R1T1744 

XMCSWXINPMLSI*  SWPMCR 

R1T1745 

CBX 

X 

CBXR 

R1T1746 

CTX 

X 

CTXR 

R1T1747 

SOX 

X 

SXR 

R1T174B 

YCIX 

X 

YW  (  1-fNPNLS  1  -  YWlNPNLSl 

R1T1749 

CBXP 

3 

CBXPR 

RIT1750 

SOXP 

X 

SOXPR 

R1T1751 

ARXR 

X 

ARXRR 

RIT1752 

ARQP 

X 

AROPR 

RIT1753 

SWPLEO 

X 

SWPR 

R1T1754 

swpmco 

X 

SWPMCR 

RIT1755 

SEXW 

= 

SXX(l)  «•  S  XX 1  2  ) 

R1T1756 

R1T1757 

ESWLF 

X 

SWLFR 

R1T175B 

eswcc 

= 

SWUCR 

R1T1759 

ESWMC 

* 

SWMCR 

R1T1760 

caWiF 
GG  TO 

50 

SW  i  c* 

R1 i i i 61 
R1T1762 
R1T 1763 

B02 

X 

YW( 1+NPNLS ) 

RIT1764 

CR 

= 

SI’LAN/C  l.+TAPRI  /B02 

R1T1765 

CRX2 

X 

CR  *„U.-  YW1NPNLS )/B02  *ll.-TAPR)  » 

RIT1766 

DZ 

X 

CR  *  TAPR  *  TAN{ TWIST/57.296) 

R1T1767 

TANSR 

X 

TANCSWPR1  *  11.-  ( l.-TAPRl*CR/B02/TAN(SWPR)  » 

R1T176B 

SX2 

X 

JCRX2  ♦  CR*T  APR )  *  (  YW(  l «-NPNLS  )  -  YWCNPNLS)  ) 

R1T1769 

SWFT 

X 

SX2  *  { 2.+.1843*TnCINPNLSI  ♦l. 5268*TQCl NPNLS )**2 
—  •  8395*T0C ( NPNL  S ) **3) 

R1T1770 

R1T1771 

DAI 

3 

AWFT INPNLS  1  -  SWFT 

RIT1772 

DAC1 

= 

CBAR INPNLS )  -.66667  *(CRX2  ♦  ( CR*TAPR ) **2/ 

RIT1773 

127 


">  n  n 


SWPHC 
0SWP1 
SWPTE 
CP  )CR 


OA2 

CAC2 

OSWP2  * 
OTOC 

GO  TO  50 
20  CONTINUE 


„ .  (CRX2  ♦  CR*TAPRl  ) 

ATANI0.5  *ITANSR  TAN(SWPR))  ) 

SUNT  -  ATANI0.5  *(TAN(SWPR)  ♦  TANI SWPMC) )  ) 

AT  ANI TANSR ) 

0.5  *  (CDS! SWPR J /COS ( SWPR-SWPNC)  ♦  COSISWPTE)/ 

COS l SWPRC-SWPTE )  ) 


25  V  1 2  » 

CR 

XI4I 

xm 

vm 

Y  (4  ) 

X(2  I  * 
X  (  3  ) 

V  I  3  ) 

CO  30  I 

cm 

pm 

ipi  (yiii 

0  CONTINUF 


YW I  1+NPNLS) 

SPLAN/I Y( 21*  I  1. +TAPR )  ) 

CR  ♦  XAPEX 
XAPFX 
0.0 
0.0 

xm  *■  YI2I  *  T  AN(  SWPR ) 

X 1 2 1  ♦  TAPR  *  CR 
Y  I  2  J 
*1.4 

S0RT( I XI  1 1  -  XPIV0T)**2  ♦  CYII)  -  YPIVGT)**2) 
AT AN ( I  XI  I )  -  XPIVOTI  /  I  Yfl >  -  yPIVGT)  I 
YP  IVOT  ).LE  .0.0)  Pill  *  PII)  3.141592 


TANI SWPR) 
CR 


00  40  I 
XT ( I  I  * 
YTII)  = 
40  CONTINUF 
OXOC 

SWPTF  * 
CO  * 

SWPQC  * 
SW  PMC  * 
XFWD 
XAFT 

CRCLP  » 
CPOC 


SWPLF  -  SWPR 
‘1.4 

XPIVOT  *01  I ) 
YPIVOT  +01  I | 


S  INIDSWP  * 
COSIOSWP  *■ 


pi  m 
pm  i 


0.75*  XT  ( 2 )  *0.25*  XTI3)  -XLE(i)  -  CRW(1)*0.25 
AT ANI I  XT ( 3 )  -  XTI4II/IYTI3)  -  YTI41I) 

TANI SWPTE I  /  TANISWPLE  I 
ATANIIl.O  -  II. 0  -  C0I/4.0I*  TANISWPLE)  ) 
ATANUl.O  -  (1.0  -  C01/2.0)*  TANISWPLE)  ) 
a  XT ( 2 )  -  Y  F  (  2  )  *  TANISWPLE) 

*  XT  C  3  1  —  VTI  31  fk  T  A  1 1  c  ui)  rr  * 

XAFT  -  XFWD 

0.5  *  I  COSISWPLFI/COSISWPLE  -  SWPMC)  *  CQSISWP 


45  CONT INUE 
TT  IP 

TWIST  * 


CAM(NPNLS)  *  CPOC /CP OCR 
TOCINPNLS)  *  CPOC /CP OCR 
OOBR  *  YI2I/YTI2) 


1.0  +  YT I  2  )*  TANI SWPLE I 
ATANIOZ/ICRCLP*TTIP) )  * 


WPMC)  *  COSI SWPTE)/ 
COS  I SWPMC  -  SWPTE)  ) 


*  (CO  - 
57.296 


L.OI/CRCLP 


R IT  1774 
RIT1775 
R1T1776 
RIT1777 
R1T17  78 
RIT1779 
RIT 1780 
RIT 1781 
R1T1782 
R1T1763 
RIT 1/84 
R1T 1785 
RIT 1786 
R1T1787 
RIT 1788 
RIT 1789 
RiTmo 
RIT 1791 
RIT  1792 
RIT 1793 
RIT 1794 
RIT 1795 
RIT 1796 
RIT 1797 
RIT 1798 
RIT 1799 
RIT 1800 
K1T1801 
RIT 1802 
RIU803 
RIT1804 
RIT 1805 
RIT 1006 
RIT  1807 
RIT 1808 
RIT 1809 
RIT 1810 
RIT iflll 
RIT 18 12 
RIT  1813 
RIT 1814 
H1T1815 
RIT 1816 
RIT 181 T 
RIT 1813 
RIT 1819 
RIT 1820 
RIT 1821 
RIT 1822 
R IT  182  3 
RIT 1824 
RIT 1825 
RIT 1826 
RIT 1827 
RIT 1828 
R  IT  1829 
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DINC 
C3 

WPLAN 
ARW 
VMIO 
TR 

XTE2 
CRX2 
SX2 

sthtal 

TQCW 
CLD 

IF (  NPNLS 


WINC  *  ( l.-TAN(DSWP)  *  TANSR )  *  COS(DSWP) 


CRCLP  *  (1.0  -1YT(3)/YT(2))*(1.0  -  TTIP)  I 
(CRCLP  ♦  C3 )  *YT<3>  ♦  C3  *  I  YT( 2)-YT (3)1 
4.  *  VT( 2)**2/WPLAN 

YT ( 3)  ♦( YT( 2  I  -  V T ( 3 > )  /( 1. O/SQR T(C3/ 1 TTI P*CRCLPI I 
1.  -  CYMI0/YT12))  *  (l.-TTIPI 
XT( 4)  ♦  YW(NPNLS)*TAN( SWPTE) 

CRCLP  *  ( l.-YW(NPNLS)/YTI2)  *  (l.-TTIPI) 

WPLAN  -  (CRCLP  ♦  CRX2I  *  YW(NPNLS) 

SX2 
IOCS 
CL  OS 
EQ.l 


♦  1, 


I  GO  TO  46 


51  *  (XT(41-XT(3M/(VT(4»-VT(3)1 

52  «  ( XL  E 1 1 ) ♦CRH( ll-XLE12)-CRW(2l)/(YWlll-YW(2l I 

I F (  Sl.E0.S2  )  GO  TO  46 

VI  »(XT(4|-XLE( 1 I -CRM ( 1 (  ♦S1*YT(4I  -S2*YW(1) I / ( S1-S2 I 

DA  ■ ( XTF2  -  XLE ( 2 )  -  CRW<2)>  *  (YW(2)  -  VI) 

SX2  -  SX2  ♦  OA 

STOTAL  *  SXX<1»  +  SX2 

TOCW  *  SORT! (TOCI ll**2*SXX( 1)  ♦  TOCS**2*SX2) /STOTAL) 

CLD  «  SORT! (CAM( 1)**2*SXX(1)  ♦  C LDS* *2 *SX2) /STOTAL) 


46  SWET 
1 

TP 

C8AR2 

CBAR2 

SWPMT 

TOCW 

COSHC 

COSOC 

I 

TANLE 

TAMTE 


ESWMC 
LSWQC 
ESHLF 
F  SUT  F 


SX2  *  (2.fr.I843*T0CS  «-i.5268*T0CS**2  -.8395*T0CS**3 » 
♦DAI  ♦  (  DA2-DA 1 )  *  (  SWPLE-SWPR ) /(  AF  TSW-SWPR ) 

TR  *  CRCLP/CRX2 

0.66667  *  CRX2  ♦  (1.  ♦  ( TP**2/ ( 1 .♦ TP) >  » 

CBAR2  ♦  DAC1  ♦  '0AC2  -  0AC1)  *  DSWP/I AFISW-SWPR) 

SWPQC  ♦  DSWPl  ♦  (0SWP2-DSWP1)  *  DSWP/t AFTSW-SWPR) 
TOCW  ♦  OTOC  *  05WP/I AFTSW  -  SWPR) 


COS ( XHCSWXi 1 ) )  *  SXX(l)  ♦  COS(SWPMC)  *  SX2 

COS (AT AN(0.5*(TAN( XLESWX4 l ) ) *T AN ( XMCSWX ( 1 ) ) ) ) )  * 

♦  COS( SWPQC)  *  SX2 

T AN( XLESWX4 1 ) )  *  SXX< i)  ♦  TANI SWPLE )  *  SX2 
(2.*TAN( XMCSWX< i) )-  TAN( XLESWX(l)) )  *SXX(l) 

♦  TAN ( SWPTE )  *  SX2 


«  ACOS ( COSMC /S  TOT AL ) 

*  ACO S ( CO SQC/ STOTAL ) 

*  AT  AN ( T  ANLE /STOTAL ) 
=  AT AN! T ANTE /STOTAL ! 


SEXW  *  STOTAL 
SXX (NPNLS )  =  SX2 
XLESWX4NPNLS )=  SWPLE 
XMCSWX ( NPNL  S ) 

CBX 
CTX 
SOX 
VOX 


CBXP 

soxp 


■  SWPHC 

CRX2 

CRCLP  *  TR 
SX2 

YMID  -  YW(NPNLS) 

CRCLP  *  ( l.-( YW( l )*YW(2) )*.5  *11. -TR) /YMID 
(CBXP  ♦  CTX)  *  (YMID  -( YW( 1 ) ♦ YW( 2) ) *. 5 ) 


R1T18  30 
R1T1831 
R1T1832 
R1T1B33 
R IT  18  34 
01R1T  1835 
R1T1836 
R  l"'"  18  37 
HIT  1838 
R1T1839 
RIT1840 
R1T1841 
R1T 1842 
R1T1843 
R1T1844 
PIT  1845 
R1T1846 
R1T1847 
R  IT  1843 
R1T1849 
R1T1850 
81T1851 
RIT1852 
R1T1853 
RIT  1854 
KIT  1855 
R1T1856 
R1T1857 
R1T1858 
R1T1859 
R IT  I860 
R1T1861 
R1T 1862 
R1T1863 
R1T1864 
SXX(l)  RIT1865 
R1T1866 
R  IT  1867 
R1T  1868 
R1T1969 
R1T1870 
R1T1871 
R1T1872 
R1T  1873 
R1T1874 
R1T  1875 
R1T  1876 
R1T1877 
R1T1878 
R  IT  18  79 
RIT 1880 
RIT1881 
RIT  1882 
RIT  1883 
RIT 1884 
RIT  1885 
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cm 


ARXR  «  4.  *  CYMID  -  YMt lll**2  /SEX* 

AROP  *  4.  *  ( YM 10  -  (YW( ll*Yk(2)*.5)  >**2/S0XP 

SMPLEO  -  SWPLF 

SWPMCO  -  SWPMC 

FOC  «  CLD  *  FCCR  /CLUR 

C 

IF (  KPASS.NE.2)  GO  TO  SO 
C 

I F {  AFTAW.GT.0,0  I  0A2  «  AFTAk  -  SWET 
IF (  AFTCB.GT *0.0  )  0AC2  -  AFTCB  -  CBAR2 
IF(  AFTOC.GT.O.O  )  OTOC  =  AF10C  -  TOCS 
50  CONTINUE 

SWP  «  SWPLE 

r 

IFC  KPRINTI 12I.EQ.1  )  WR I TE 1 6 . 1000)  KPASS,  StaPLC,  DAI,  0AC1, 
DSWP1,  CPOCR,  0A2.  0AC2 «  0SHP2*  OTOC,  OA 

r  Tt.'IST.DINC  .SHPMT  ,CBAR2  ,CLD5,  TO„S ,  Sk'c T ,  DCB ,  TOCW  , 
CLO, SE  XU, F  SWLE , E SWQC ,  £  SWMC , E  SM  TE »ARh»TR»WPLAN 
1000  FORMAT ( 5X ,  *VGEOH  OUMP,  KPASS  10X,*SMPLE  **  F12.4  / 

1  C1X,  7F15.5  ) 

C 

END 


R1T1886 
R1T1887 
R1T1888 
R  IT  188*9 
R1T1890 
RIT1391 
R1T1892 
R1T1893 
R1T1894 
R1T1895 
R1T1896 
R1T1897 
R IT  1898 
R IT  1899 
R1T1900 
R1T1901 
R1T1902 
R1T1903 
R IT  1904 
R1T1905 
R  IT  1906 
R1T1907 


CC  *  00246 


OVERLAY 13,21 
PROGRAM  MCRIT 

r 

C  COMPUTES  CRITICAL  MACH  NUMBER 
C 

COMMON  /BLKOV3/  10,  XMACH,  TOC,  CLD,  SWEEP,  CV3(3),  JPASS, 

1  OV3AI3I 

COMMON  /BLKA05/  SCWI6),  SEC  TGI  5) ,  CIMAX,  CLMCR110),  XMCRIIO), 
l  XT( 33 ) ,  YTC33),  YC133),  NMCR ,  NXSET 

C 

COMMON  /BLKC03/  CLTABIIl),  TABMCRI  ID 

C 

IF<  I0.LE.23  »  CALL  CPZTCIO,  0.6,  TOC,  CLD,  SWEEP  I 

C 

100  CLTABIIl  »  0.0 
DO  200  I  -  1,  il 

IF (  I.GT.l  )  CLTABIIl  *  CLTABU-ll  *  0.1 

CALL  LNTP (CLTAB1 I ) ,  TABMCRI  1 1  ,  CLMCR  »  XMCR,  NMCR,  21 

CALL  ADJUST l 0,4,  CLTABIIl,  TABMCRI III 

IF!  TABMCRI I I.LT. 0.0  I  TABMCR I  1 1  «  0.0 

C 

200  CONTINUE 

C 

300  WRITEI6, 1000)  tCLTABtl),  TABMCRI!)  ,  I  >1,11) 

C 

1000  FORMAT  1 1H1,  5X,  *  MACH  CRITICAL  TABLE  *  ///  5X  *  CL  *,  5X 
l  *  MACH  CRITICAL  *  //l 5X ,2F1 5 .4)  I 

C 

END 


RIT1909 
R1T1910 
R1T191L 
RIT 1912 
R1T1913 
RIT 1914 
RIT 1915 
RIT 1916 
RIT 1917 
RIT 1918 
RIT 1919 
RIT 1920 
RIT 1921 
RIT 1922 
RIT 1923 
RIT 1924 
RIT 1925 
RIT  1926 
RIT 1927 
RIT 1928 
RIT 1929 
RIT 1930 
RIT 1931 
R IT  1932 
RIT 1933 
RIT 1934 
RIT 1935 
RIT 1936 
RIT 1937 


CC  =  00029 


o  r>  o  o 


SUBROUTINE  CPZTdO,  XMACH »  TOC,  CLD,  SWEEP) 

CALCULATES  4IRFOIL  PRESSURES  -  BRITISH  METHOD 
AND  COMPUTES  MACH  CRITICAL  USING  CREST  CRITERIA 

COMMON  /BLKAOl/  NBODVS,  NNACS,  NSURFS,  NHT ,  NVT • 


ISWP,  NPNLS 


COMMON  /BLKA05/  SCW!  6 ) .  SECTGI5),  ClMAX, 
l  ORD 199),  NMCR,  NXSET 

COMMON  /BLKR07/  XU(32),  ZT(32),  ZS132), 
COMMON  /BLKCPI/  SAI32J,  SBI32),  SC  (  32 ) , 
COMMON  /BLKPP T /  KPR INT( 50 ) 

COMMON  /8LKG01/  Gl(200) 


CLMCR(IO),  XMCRUO), 

RCC ,  ZTE 

SOI  32)  ,  SE132) 


OIMFNS ION  C0SEI32),  SINEI32),  51(32,32),  S2(32,32),  S333.32), 

L  S4I  32.3 2).  55(  32,32),  VCP  1(32)  ,  DZOXUT ( 32 ) 

PI  =  3.1415927 

AR  *  G 1 ( 80) 

SWP  =  SWEEP/57. 24578 

COSPHI  =  (  COS(SWP)  )**(AR/(  1.44-AR)  ) 

I F (  SWEEP. GT. 40.0  )  COSPHI  *  0.5  *  (COSPHI  *„76604**( AR/( 1 .4+AR) 
COSPHI  IS  THE  COSINE  OF  THE  EFFECTIVE  ISOBAR  SWEEP 
SWP  =  ACOS( COSPHI ) 


00  100 


1 ,  NCP 


XI  =  I 

XN  =  NCP  +  1 

NX  *  NCP  ♦  1 

cnsF(i)=  cnsixi*p  i/xn ) 
SINE(II-  S  IN(XI*P  I/XN  ) 

XU( I )  =  0.5*< 1.0  ♦  C 0 SE (  I )  1 

100  CONTINUE 

CALL  SECT ( ID,  TOC,  CLO) 


S 2 (  IU, IV )  =  COSEI  IU)/(SINE( IU)**2) 

S3  (  IU,  IV  )  =  XN/SINEUUl 

S4( IU, IV )  =  XN/SINEI  IU)  -  2.0  *  ((-l.0)+*IU  -1.0)  / 
l  (  XN  *  SINE(IU)  *  11. 0  -  COSE(IU))  ) 

S 5 ( IU, IV)  =  -  S2(  IU, IV) 

I F (  IU  .FQ. IV  )  GO  TO  150 

SIGN  =  ((-1.0)** IMV  -  1. 0) /XN 

DEM  =  (COSEI  IU)  -  COSEI IV)) 

S1(IU,IV)  =  SIGN  *  2.0  *  SINE(IU)  /(0EM**2) 

S2( IU, IV )  =  (-2.0*(-1.0)**IMV*SINE( IU) ) /( SINE( IV)*OEM) 


R  IT  19  39 
R IT  1940 
RIT 1941 
R1T1942 
K IT  1943 
RIT 1944 
RIT 1945 
RIT 1946 
f  IT  1947 
RIT 1948 
RIT 1949 
RIT 1950 
RIT 195  1 
RIT 1952 
RIT 1953 
RIT 1954 
RIT 1955 
RIT 1956 
RIT  1957 
R1T195B 
RIT 1959 
)) RIT 1960 
RIT 1961 
RIT 1962 
RIT 1963 
RIT 1964 
RIT 1965 
RIT 1966 
RIT 1967 
RIT 1968 
RIT 1969 
RIT 1970 
RIT  1971 
R IT  19  >2 
RIT  1973 
RIT 1974 
RIT 1975 
RIT  1976 
RIT 1977 
RIT 1978 
RIT 1979 
RIT 1990 
RIT 1981 
RIT  1982 
RIT 1983 
RIT  1984 
P.1T1985 
RIT 1986 
RIT  1987 
RIT  1988 
RIT 1989 
RIT  1990 
RIT 1991 
RIT 1992 
RIT 1993 
RIT 1994 
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S3CIU.IV)  -  S1CIU.IV)  -  SIGN  *  2.0  *  ( 1. 0/1  SINE (  IUI*DEM) I 

R1T1995 

S4dU.IV)  -  2.0  *  SIGN  *  (1.0  -  COSEI  IU)*CDSE(  I V)  I 

/ 

R1T1996 

1  (SINE!  IV)  *  DEM** 2  ) 

R1T1997 

2  -  2.0  *  CC-1.0)**IU  -1.0)  / 

R1T1998 

3  (XN  *  SINE(IV)  *  11.0  -  COSFCIUI)  ) 

R1T1999 

S5dU.IV)  «  -2.0  *  (-1.0)**  IMV  /DEM 

R1T2000 

c 

R1T2001 

150  I Ft  KPRINTC  26I.NE.3  )  GO  TO  200 

RIT2002 

WRITE(6, 1000)  Sl(IU.IV),  S2CIU.IV).  S3IIU.IV) 

RIT2003 

l  . S4( IU. IV).  S5( IU.I V) 

R1T2004 

200  CONTINUE 

RIT2005 

S3 (NX. IV)  *  C(-1.0)**IV  - 1 • 0) /( XN*( 1.0  ♦  COSEIIV))) 

R1T2006 

300  CONTINUF 

R1T2007 

c 

R1T200S 

IF (  KPRINTC26I.E0.3  )  MR  I TE (6 . 10001  (S3INX.J).  J»1 

,NCP) 

R1T2009 

c 

R1T2010 

ALPHA  -  6.0 

RIT2011 

350  A  -  ALPHA/57.296 

R1T2012 

NMCR  *  NMCR  *■  1 

R1T2013 

XM  «  XMACH 

R1T2014 

IF (  XM .GT .0.9  )  XM  *  0.9 

R1T2015 

I F ( XM.L E.0. 0  }  XM  -  0.01 

R1T2016 

XM2  -  XM**2 

RIT2017 

IF  (  KPRINTm.EQ.l  )  HR  I  TEC  6,  1001  5  XM.  ALPHA.  SHEEP 

R1T2018 

CL  I  *  0.0 

R1T2019 

CL  -  0.0 

RIT2020 

DCPIMl  *  0.0 

R1T2021 

CCPM1  *  0.0 

R1T2022 

CM I  »  0.0 

R1T2023 

CM  «  0.0 

R IT  20 24 

00  500  IV  “  1,  NCP 

R1T2025 

SACIV)  -  0.0 

R  IT  20  26 

IF( ID.LT. 10 .OR • ID.GT.20)  SBC  I V)  -  0.0 

R1T2027 

SCCIV)  *  S3CNX.IV)  *  SQRTCROC/2.0) 

R1T2028 

SOCIVi  =  0.0 

R1T 2029 

SEC  IV)  -  0.0 

R  IT  20  30 

00  400  IU  1,  NCP 

RIT2031 

c 

R  IT  20  32 

SAC  I V  1  *  SACIV)  ♦  SIC IU, IV)*ZT( IU) 

R1T2033 

IFC ID.LT. 10. OR. ID.GT.20)  SBCIVI  -  SBC  IV)  *S2 C I U, I V ) *ZT C IU ) 

R1T2034 

SCCIV)  =  SCCIV)  ♦  S3 ( IU. IV)*ZT( I U) 

R1T2035 

SDCIV)  =  SDCIV)  ♦  S4C IU, IV)*ZS( IU) 

R1T2036 

SEC  IV  )  «  SECIV)  ♦  S5C IU, IV)*ZS( IU) 

R1T2037 

400  CONTINUF 

R  i  V  2038 

f 

R1T2039 

CALL  CPU0VC1.0,  A,  SWP ,  IV,  CPIU,  CPU,  XM) 

R1T2040 

c 

R1T2041 

CALL  CPUOVC-1..  A,  SWP,  IV,  CPIL,  CPI,  XM) 

R1T2042 

r. 

R IT  2043 

DCP I  *  CPIL  -  CPIU 

R1T2044 

DTP  *  CPL  -  CPU 

R1T2045 

c 

R IT  2046 

OZDXU  -  SBC  IV)  ♦  SFC IV) 

R1T2047 

OZDXL  =-S8(  IV)  ♦  SEC  IV) 

R IT  2048 

c 

R1T2049 

YCPICIV)  =  CPIU 

R1T2050 
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DZDXUT < I V )  ■  DZOXU 
C 

IFI  KPR INT 1 1 )  .EQ. 1  )  WPITEI6, 1000)  XUI I  V) .CPIU ,CPI L .DCPI ,OZOXU, 
1  OZDXLt  CPU.  CPL.  OCP.  XUIIVI 

C 

OX  *  XU  I NCP) 


XH 

» 

0.5 

* 

11.  ♦  XUIlll 

IFI 

IV. NE 

.1 

) 

DX  -  XUI IV 

-1)  -  XUIIVI 

IFI 

IV. NE 

.1 

)  XB  -  0.5  * 

IXUI  I  V-l  *  ♦  XUIIVI! 

CLI 

X 

CL  I 

♦ 

DX  *  I DCP I 

♦  DCPIMlt  6  0.5 

CL 

M 

CL 

♦ 

OX  *  I OCP 

♦  0CPM1  1  *  0.5 

CM  I 

m 

CM  I 

♦ 

OX  *  1 OCP I 

♦  0CPIM1I *0.5  *  I XB  -  0.25) 

CM 

» 

CM 

♦ 

OX  *  IOCP 

♦  DC  PM  1 1  *>0.5  *  1  XB  -  0.25) 

OCP 

I M 1  « 

OCPI 

DCPM1  » 

OCP 

500  CONTINUE 

CL  I 

M 

CL  I 

♦ 

XUI NCP )  * 

OCPI*  0.5 

CL 

U 

CL 

+ 

XUI NCP)  * 

DCP  *  0.5 

CM  I 

m 

CM  I 

♦ 

XUI NCP  )  * 

DCPI  *  0.5  *  I 0. 5*XU< NCP)  -0.25) 

CM 

* 

CM 

♦ 

XUINCPI  * 

OCP  *  0.5  *  I 0.5*XUI NCP)  -0.251 

CPC 

RIT  ■ 

11. 

42857/XM2I  * 

(0.52828  *(I.  +  0.2  *XM2)**3.5  - 

C 

I  F  (  KPRINrm.GT.O  )  WRITE  (6,1002)  CL  I  ,CMI  .CPCRIT.ZTE  .CL.CM 
600  CONTINUE 
C 

IF!  A.LT.OZDXUT(NCP)  I  GO  TO  610 
NMCR  *  NMCR  -  1 
ALPHA  •  ALPHA  -I. 

Gn  TO  350 
C 

610  CALL  LNTPI A,  XCREST,  OZOXUT,  XU,  NCP,  4) 

C 

620  CALL  LNTPI XCREST .  CPCR,  XU,  VCPI,  NCP,  4) 

r 

CPCRST  -  CPCR/COSPH 1**2 
630  CP  12  *  CPCRST  *  CPCRST 

XMDDN  -  1. /I  1.0323  -,836S*CPCRST  -.361*CPI2  -.1336*CPCRST**3 
1  -.01T3*CPCR ST**4) 

IFI  I0.F0.8  I  XMDDN  -  1. /I  1.012  -. 8551 *CPCRST 
1  -.4493*CPI 2  - .2?19*CPCRST**3  -,0447*CPCRST**4> 

C 

XMDO  =  XMDON/COSPHI 

TEC  XMDO. LE. 0.8 ?. OR. ID. EG. 6  i  GO  TD  640 

IF!  XMDD.LF . 1.08  »  XMOD  »  .2666  -.5729*XM0D  *2.7123*XMDD**2 
1  - l.4582*XMDD**3 

IFI  XMOD.GT .  1.08  )  XMDO  -  0.B545  +  .U32*XMDD 
C 

640  FMCRB  =  1.0 

IFI  NBODVS.GF.l  »  FMCRB  *  1.0439  -  0.5826/Gllll 
IFI  GHII.GT.IO.O  I  FMCRB  =  0.98 
IFI  XMOD.GT. FMCRB  I  XMDO  =  FMCRB 
C 

BMDO?  =  1.  -  I XMDD  *  C0S(SWP))**2 


R1T 2051  I 

RIT2052 

RIT2053 

R1T2054  I 

R1T2055  !j 

KIT  2056 

R1T2057 

R IT  2058 

R1T2059 

R1T2060 

K IT  2061 

R1T2062 

R1T2063 

R1T2064 

R  IT  2065 

R1T2066 

R1T2067 

R  IT  20  68 

R IT  2069 

R1T20 70 

R1T2071 

RIT2072 

R IT  20  73 

R IT  20  74 

R1T20 75 

R1T2Q76 

R1T2077 

R1T20  78 

R1T2079 

R  IT 2080 

RIT2081 

R1T2082 

R1T2083 

R1T2084 

R1T2Q85 

R1T2086 

R1T2087 

R1T2088 

R1T2089 

R IT 2090 

RIT2091 

RIT2092 

SIT  2093 

RIT2094 

p  i^r  2095 

R l T  2096 

R1T2097 

R1T2098 

R1T2099 

R\T  2100 

RIT2101 

RIT2102 

R1T2103 

RIT2104 

R1T2105 

R  IT  2106 


IF!  BMD02.GT.0.0  )  CLMDD  -  CL  I /SORT C BMDD2 » 

IF  t  KPRINT ( 1 t.GT.O  )  WR I TE ! 6» 1003 »  XMDD  tCLMOD  t XCREST , CPC R  « COS PHI 
CLMCRINMCR)  -  CLMDD 


XMCRINMCRI 


XMDD 


TOO  I F (  CLI.LE.0.0  I  RETURN 
IF  <  NMCR.GE.10  1  RETURN 
ALPHA  •  ALPHA  -  1. 

GO  TO  350 

1000  FORMAT I5X, 10F12. 4 1 

1001  FORMAT  1 1H 1 1  //// 10X,  57HPRE  SSUKE  DISTRIBUTION  AND  SURFACE  SLOPES 
10R  2-D  AIRFOIL  ,  6X«  AHACH  -AF6.4,  5Xt*ALPHA  -AF6.3  /// 

1  10X,*SMFFP  ANGLE  -A,  FT. 3  // 

2  12X,*X/C*, 7X»*CPI!UPPERlAi2X»*CPI! LOWER) *»4X » *DCPI * • 

3  5X»  *  DZ/DXI UPPER )*,2X.*D2 /DX( LOWE R)A,1X.*CPI UPPER)*. 

4  2X,*CP(L3WER J*,4X,*DCP*.  9X,*X/C*  //  > 

1002  FORMAT!//  IOX.ACLI  -AFT. 4,  IOX,*CMI  -AF7.4,  20X,*CP|M-1I  -  *, 


F8.4,  10X,  *2TE  -AF7.4  /11X,*CL  -AFT. 4,  6X,*CM(C/4)  -A 
F7.4  /  > 


1003  FORMAT!  /10X,*MACH  CR IT  -AFT. 4,  10X,  ACL  AT  MOD  -*F7.4.  10X, 


*X- CREST  -*FT. 4,  10X.*CP-CREST  -*FB.4  / 

50X,  ACOSINE  OF  EFFECTIVE  ISOBAR  -AFT. 4  //) 


ENO 


R1T2107 
R1T2104 
R1T2109 
R1T2110 
R1T2111 
R1T21 12 
R1T2113 
R1T2114 
RIT2115 
R1T2116 
R1T2U7 
R1T2118 
R1T2119 
FR1T2120 
R1T212L 
R1T2122 
R IT  21 23 
R1T2124 
R1T2125 
R IT 2 126 
R1T2127 
R1T2128 
R1T2129 
R1T2130 
R1T2131 
R1T2132 
R1T2133 
RIT2134 
RIT2135 


CC  ■  00197 
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SUBROUTINE  SECT (10,  TOC,  CLD) 


CALCULATES  THICKNESS  ANO  CAMBER 


COMMON 

COMMON 

COMMON 

l 

COMMON 

COMMON 


/BLKCPI /  S  A  t  32) ,  SB I  32  I ,  SC132),  SOI  321  *  SEI32) 

/  BLKR07  /  XU  ( 32  I  •  ZT(32),  ZSI32I,  ROC,  2TE 
/BLKA05/  XMU ,  ZMU,  XML,  ZML ,  ZPTE,  ZTHIK,  RLE,  A4(25», 
XTI33I,  YT(33>,  YCI33I,  NRCR,  NXSET 
/3LKBD2/  AA (22 ) ,  118(22),  CC(22S,  00(22),  XTT(22) 
/BLKPRT /  KPRINT(50) 


DIMENSION  XSECTI26I  ,Y164 A(26) , CAMB (26 )  ) 

DIMENSION  YL63AI26)  ,  Y 165A  (  26)  ,  Y 16  3(  26)  ,Y164(26)  ,''165(26)  , 
l  Y 166 (26 ) , CAMBL (26  ) 

DIMENSION  AO(li),  Al(ll),  A2(ll),  A3(1I),  DL(ll),  D2 ( 1 1 ) ,  03(11) 
DATA  XSECT /  0.0,0.005,0.0075,0.0125,0.025,0.05,0.075,0.1, 


DATA  Yl 63  / 


DATA  Y 1 64  / 


DATA  Y 165  / 


DATA  Y 166  / 


DATA  Y 1 63A / 


DATA  Y 166 A/ 


DATA  Y 165 A/ 


DATA  CAMB  t 


DATA  CAMB1 / 


0.0, .00759, .00913,. 01141, .01516, .02 08 7, .02 536, .02 
•0353, .04 001 ,.04363, .04636, .04832, .04953, .05, .049 
.04865, .04665,. 04302,. 03787,. 03 l 76,. 02494,. 01773, 
.01054,  .00408,0.0  / 


.00525, .00021  / 
0.0,0.00804, 0.0 
0. 02815,0.03199 
O. 04968,0.04995 
0.03597,0.03127 


R1T2137 
R1T2138 
R1T2139 
RIT2140 
R1T2141 
R1T2142 
R1T2143 
RIT2144 
R1T2145 
RIT2146 
R1T2147 
R1T2148 
RIT2149 
RIT2150 
KIT  2 15 1 
RIT2152 
R1T2153 
R IT  2 154 
R1T2155 
R1T2156 
R1T2157 
R1T2150 
R IT  2 159 
R1T2160 
R  IT  2 1 61 
R IT  2 162 
R1T2163 
R 1T2164 
RIT2165 
R1T2166 
RIT2167 
R1T2168 
R1T2169 
R1T2170 
R1T2171 
R1T2172 
R1T2173 
,R 1T2174 
R1T2175 
R1T2176 
R1T2177 
R1T2170 
R1T2179 
R IT  2 180 
R1T2181 
K IT2182 
RIT2183 
R1T2184 
RIT2185 
R1T21B6 
R1T2187 
R1T218P 
RIT218 
R1T219C 
R IT  2 191 
R1T2192 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


DATA  AO 


•0 158. 0.0  / 


1 

2 

3 

4 

5 

6 
7 

e 

9 

1 

2 

3 


A  1 


A2 


A3 


01 


02 


03 


NCP 

ROC 


/  -.040625,  -.068571,  -.233333,  -.684,  -1.6625, 

-.068571,  -.233333,  -.684,  -.068571,  -.23333,  -.684/, 
/  -.070312,  -.093878,  -.032407,  0.292,  1.3125, 

-.093878,  -.032407,  0.292,  -.093878,  -.032407,  0.292/ 


31 

AA< 10) 


♦  BB(  10  I *TQC  ♦CCC ID) *TOC*  TOC  ♦  OD (I D) *T0C**3 


10 

* 

i 

TO  4,  6  SERIES 

AIRFOIL 

IJ 

a 

1 

ID 

* 

5 

TO  7,  6A  SERIES 

AIRFOIL 

IJ 

a 

1 

10 

9 

8, 

SUPERCRITICAL 

AIRFOIL 

IJ 

a 

2 

ID 

9 

9, 

? ICONVEX 

I  J 

9 

3 

10 

a 

10 

TO  20,  4  DIGIT 

AIRFOIN 

IJ 

a 

4 

ID 

m 

21 

,22,  INPUT  AIRFOIL 

IJ 

9 

5 

IF  € 
IFI 
IF  I 
IF  I 
IFC 


ID.LE.7  I  IJ  «  1 

ID.EQ.B  )  IJ  -  2 

ID.EQ.9  )  IJ  «  3 

IO.GF. 10. A NO. I0.LE.20 
I0.GE.2i  I  IJ  -  5 


J  IJ  -  4 


100 


110 


GO  TO  (200,300,100,900,700)  ,  IJ 

WRI TE(6 ,2000) 

DO  110  I  -  l.NCP 

ZT  ( I  )  «  2,0*T0C*XUU)*(  1.0  -  XUC I » 1 

SB (II  -  2.* TOC  *  11. -XU (I) ) 

zsm  -  o.o 

CONTINUE 

ROC  ■  0. 0 

GO  TO  960 


200 

IF  ( 

ID.LE.4 

1 

WRI  TEI6, 20031 

IM 

ID.GT .4 

i 

WRITE io, 200 1} 

DO 

220  I  « 

1 , 

NCP 

X 

m 

XUI  I ) 

IFI 

ID.LE.4 

1 

CALL 

LNTPIX, 

ZSl,  XSECT,  CAPBl,  26 

,  4) 

IF  ( 

ID.GT. 4 

J 

CALL 

LNTPIX, 

ZSl,  XSECT,  CAPB ,  26 

,  4) 

ZSl 

I) 

ZSl  *  CLO 

210 

IFI 

ID.EO.l 

CALL 

LNTPIX, 

ZT  (I  1, 

XSECT, 

V163, 

26, 

4) 

IFI 

ID.EQ.Z 

CALL 

LNTPIX, 

ZTU)  , 

XSECT, 

Y164, 

26, 

4) 

IFI 

I0.EQ.3 

CALL 

LNTPIX, 

ZT  f I  I , 

XSECT, 

Y165, 

26, 

4) 

IFI 

ID.E0.4 

CALL 

LNTPIX, 

ZTU) , 

XSECT, 

Y166, 

26, 

4) 

IFI 

ID.EQ.5 

CALL 

LNTPI  X, 

ZTI I  )  , 

XSECT, 

Y163A, 

26, 

4) 

IFI 

ID. EQ.6 

CALL 

LNTPIX, 

ZTU), 

XSECT, 

Y164A, 

26, 

4) 

IFI 

ID. ED. 7 

CALL 

LNTPIX, 

ZTU  )  , 

XSECT , 

Y165A, 

26, 

4) 

R1T2193 

R1T2194 

R  IT  2 19  5 

R1T2196 

RIT2197 

R1T219B 

R1T2199 

R IT  2200 

R1T2201 

R1T2202 

R  IT  220  3 

RIT2204 

R IT  2205 

R1T2206 

R1T2207 

R1T2208 

RIT2209 

R  1T2210 

R1T2211 

RIT2212 

R  IT  2213 

RIT2214 

R1T2215 

R IT  2216 

RIT2217 

R1T2218 

R IT  2219 

R1T2220 

RIT2221 

R1T2222 

R1T2223 

R IT  2224 

RIT2225 

R1T2226 

R IT  2227 

RIT2228 

R IT  2229 

RIT2230 

R1T2231 

R1T2232 

R1T2233 

R1T2234 

Rif  2235 

R1T2236 

R IT  2237 

R1T2238 

RIT2239 

R IT 2240 

K1T2241 

RIT2242 

R1T2243 

RIT2244 

R IT  2245 

RIT2246 

R1T2Z47 

R  IT  2248 
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o  o  o  n  o  o  o  o  o 


C 

220  ZTC  I  I  •  ZTI  II  *  VOC/O.  1 
GO  TO  960 
C 

300  WR  IT£( 6t 2002! 

WRI T  E  (6  »  1000  I  X  HU  * Z  MU  *  XML  »  ZML •  ZPTE,  ZTHIK 
400  CONTINUE 

0  +  +  +  *  +  *******+  +  +  **  +  ***+*+** 
CAROS  2257  THRU  2335  ARE  NOT  SHOWN  IN  THIS  LISTING 
*************************** 
GO  TO  960 


700  ROC  *  RLE 

C 

DO  800  1*1,  NCP 
X  ■  XUII) 

CALL  LNTPIX,  ZT (I) ,  XT,  YT,  NXSET,  4) 

CALL  LNTPIX,  ZSl,  XT,  YC ,  NXSET,  41 
ZSl  II  •  ZSl  *  CLD 

800  CONTINUE 
GO  TO  960 
C 

900  WRI TE( 6 ,20041 

I4D  *  10  -  9 

ROC  -  0.5  *  (AOI  I4DI*T0C/. 21**2 

C 

DO  950  1*1*  NCP 
X  *  xum 

I F  (  X.GT.XTTI  ID)  I  GO  TO  910 

C 

ZT(I)  -  AO ( 140)  *  SORT  I X I  *  AKI4DI  *  X  ♦  A2II4DI  *  X*X 
1  *■  A  3(1  40)  *  X**  3 

SBIII  -  0.5  *  AOI  I40I/SQRTIX)  ♦AIII'  I  +2.*A2( I 4D) *X 
1  ♦  3.*  A3 1  140)  *  X**2 

GO  TO  940 
C 

910  X  *  (  1.  -  XI 

ZT  I  I  I  *  0.002  *  DKI4DI  *  X  ♦  D2II4DI  *  X*X  ♦  D3II4D)  *  X**3 

SHU  J  D11HDJ  -J„*  DJU'VD;  :-;:  -o  „*  D3II4D)*X*X 

c 

940  ZT III  *  TOC/. 2  *  ZTI  I ) 

SSI  1 1  *  TOC/. 2  *  SSI  II 

CALL  LNTPIX,  ZSl,  XSECT,  CAMB1,  26,  41 
ZSIII  *  ZSl  *  CLD 
C 

950  CONTINUE 
C 

960  IF!  KPRINTI  1I.EQ.0  J  RETURN 
WRITEI6 ,10041  TOC,  CLD,  ROC 
DO  970  1*1,  NCP 
INV  *  NCP  +1-1 


R1T2249 
R IT  2250 
RIT2251 
R IT 2252 
R1T2253 
RIT2254 
R  IT 2255 
R1T2256 
R1T2257 
R1T2258 
R1T2259 
R IT  2334 
R1T2335 
R1T2336 
R IT  2337 
RIT2338 
R1T2339 
R IT  2340 
R1T2341 
R IT  2342 
R1T2343 
RIT2344 
R IT  2345 
RIT2346 
R1T2347 
R  IT  2348 
R1T2349 
R  IT  2350 
RIT2351 
R1T2352 
R1T2353 
R1TZ354 
R1T2355 
R1T2356 
R1T2357 
R  IT  2358 
R1T2359 
R1T2360 
R IT  236 1 
RIT2362 
R IT  2363 
RIT2364 
RIT2365 
R  IT 2366 
R1TZ367 
R1T2368 
R1T2369 
RIT2370 
R 1T2371 
R  IT  2  372 
RIT2373 
R IT  23  74 
RIT2375 
R1T2376 
RIT2377 
R1T2378 
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ZUP  *  ZTUNV)  «■  ZS(  l N  V)  R  IT  2379 

ZLO  --ZTUNV)  «  ZS(INV)  RIT2380 

WRI TEI6 ,1005)  XUIINV),  ZT1INV),  ZSUNV),  ZUP,  ZLO  RIT2381 

970  CONT IN JE  RIT2382 

C  R1T2383 

1000  FORMAT! /5X, * XMU  «*  ,F10.6  ,3X  ,*ZMU  «*  ,F10  .6  ,3X  ,*XML  >*,F10.6,  RIT2384 

1  3X,*ZML  *  *F 10. 6 ,  /  R1T2385 

l  3X,*ZPT£  -*F10.6,3X,*ZTHIK  -*,F10.6  //  I  R  LT2386 

1001  FORMAT! 5X,  7F10.6  /  I  R1T238T 

1002  FORMAT  <  I5,5X,5F10.0  )  R1T23B8 

1003  FORMAT (  10F6.0  )  R1T2389 

1004  FORMAT ( 10X,  *T/C  **F7.4,  10X,*CAMBER  «*F7.4,  10X,*L. E. RADIUS  -*,  R1T2390 

1  F8..5  //T17,*X/C*,T26,*THICKNFSS*,T44,*CAMBER*,T60,  RIT2391 

2  *  UP  PER*  ,  T  75  **  LOWER*  )  RIT2392 

1005  FORMAT (5X,  5F15.5  )  RIT2393 

2000  FORMAT!/  10X,  *BICONVEX  AIRFOIL  SECTION*/  )  R IT 2394 

2001  FORMAT! /10X,  *6A  SERIES  AIRFOIL  SECTION  *  /)  RIT2395 

2002  FORMAT!/  10X,  *SUPERCRIT ICAL  AIRFOIL  SECTION*  /)  R1T2396 

2003  FORMAT!  /10X,  *6  SERIES  AIRFOIL  SECTION*  /)  R1T2397 

2004  FORMAT!  /10X,  *4-DIGIT  AIRFOIL  SECTION*  /)  RIT2398 

RETURN  RIT2399 

ENO  R IT  2400 


CC  -  00190 


c 

c 

c 

c 

c 

c 


r 

r 

c 

c 

c 

c 

c 

c 

f 

r 


SUBROUTINE  CPUOVi S,  A.  SWP ,  IV.  CPI.  CP.  XM) 

COMPUTES  CP  FOR  AN  INFINITELY  SHEARED  WING 

COMMON  / BLKCP I /  SA(32».  SBI32),  SCI32),  S0I32).  SE ( 32) 

COMMON  /BLKR07/  XUI32).  ZTI32).  £ S<  32 1 •  RCC ,  ZTE 

10  COSA  ■  COS ( A ) 

SINA  -  S  IN ( A ) 

COSL  *  COS(SWP) 

SINL  -  SIN(SWP) 

20  FI  -  SA(  IV) 

F2  »  SB(IV) 

F3  -  SCI  IV) 

F4  -  SOI  IV) 

F5  «  SEI1V) 

FX  -  SORT  111.  -  XUl IV) l/XUI IV) ) 

30  CUL  -  l.O/ll.  *1  I F 2  *S*  F5 1 /CO SL ) *♦2  ) 

40  UI0V2  -  OUL  *  I  COSA  *  II.  *  FI  *  COSL  *■  S*  F4  *  CCSL) 

1  ♦  $*  SINA  *  COSL  *  11.  ♦  F3/C0SL )  *  FX  )**2 

2  4-  OUL  *  I  COSA  *  SINL  *  IF1  *S*  F4) 

3  »S*  SINA  *  SINL  *  II.  ♦  F  3/COSL )  *  FX  1**2 

4  ♦  ISINL  *  C0SA)**2  *  II.  -  DUL) 

CPI  -  1.0  -  UI0V2 

CP  -  CP! 

50  CPin  -  II.  -  SINL  *  SINL  ♦  FI  *  FI  ♦  2.0  *  F 1  *  CCSL) 

1  /II.  (F2/C0SL  )**2  )  -  SINL  *  SINL 

CPIO  *  1.0  -  CPIO 

I F I  CPID.GT.0.0  )  CPIO  *  0.0 

XMN  «  XM  *  COSL 

|«=<  XM.LE.O.Ol.OR  .XMN.GE  .  1.  0  )  RETURN 

XM2  ■  XM  *  XM 

BET  ft  a  SORT  II.  -  XMN  *  XMN) 

SINA  -  SINA/BETA 

60  TFST  -  I COSL  *  COSL  -  CPIO  *  XMN)  •  XM2 
IF!  TEST. GE. 1.0  )  HR  I TE I  6 . 1 000) 

IF (  TEST. GE. 1.0  )  GO  TO  200 

TO  B  =  SORT! 1.0  -  TEST) 

FI  =  Fl/8 

F4  =  F4/8ETA 

F  3  =  F3/B 

80  OUL  =  l.O/ll-  4-  |(F2  +S*  F5)/|B  *  CnSL))*  +  2  ) 

90  U0V2  =  OUL  *  I  COSA  *  (1.  4-  F 1  *  COSL  4- S*  F4  *  CCSL) 

I  4-S*  SINA  *  COSL  *  II.  4-  F  3/COSL )  *  FX  )+*2 


R1T2402 

R1T2403 

R1T2404 

R1T2405 

R1T2406 

R1T2407 

RIT2408 

R1T2409 

RIT2410 

R1T241 1 

R IT  24 12 

R1T2413 

RIT2414 

HIT  24 15 

R IT  24 16 

R1T2417 

R IT  2418 

R1T2419 

RIT2420 

RIT2421 

R1T2422 

RIT2423 

R1T2424 

KIT  2425 

R1T2426 

R1T2427 

R1T2428 

R1T2429 

R1T24  30 

R1T2431 

R1T2432 

R1T2433 

R  IT  24  34 

R1T2435 

R IT  2436 

R1T2437 

RIT24  38 

R  IT  24  39 

R1T2440 

R  IT  2441 

R IT  2442 

R IT  2443 

R  IT  2444 

R IT  2445 

R IT  2446 

R  IT  2447 

R IT  2448 

R IT 2449 

R1T2450 

R1T2451 

R IT  2452 

R1T2453 

R1T2454 

R IT  2455 

PIT  2456 

R1T2457 


140 


2  ♦  DUL  ♦  f  COSA  *  SINL  *  (FI  +S*  F4)  R1T245B 

3  ♦S*  SINA  *  SINL  *  ( 1.  ♦  F3/C0SL)  *  FX  >**2  R1T2459 

4  ♦  (SINL  *  CO SA )**2  *  (I.  -  DUL)  RIT2460 

C  R1T2461 

100  CP  »  -1.42857/XM 2  R1T2462 

C  R IT 2463 

TEST  «  1.0  ♦  0.2  *  XM2  *  (1.  -  U0V2)  RIT2464 

I F (  TEST. LF. 0.0  )  GO  TO  200  R1T2465 

CP  *  -CP  *  (  TEST**3.5  -  1.0  I  RIT2466 

C  R1T2467 

200  CONTINUE  R1T2468 

RETURN  KIT 24 69 

1000  FORMAT ( 10X  r *KUC HE MAN— WEBER  CORRECTION  FACTOR  REACHES  LIMIT*  )  R1T2470 

ENO  R IT 24  71 


CC  *  00070 


o  n  n 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


c 


c 

c 


OVERLAY  (3,  3  ) 
PROGRAM  AERO 

AERODYNAMICS 


CQMMOv  /BLKOV3/  ITYP,  0V3A14),  ALT,  SPEED,  SWEEP,  JPASS,  0V3BI2I, 
l  ITRIM 


COMMON  /BLKGOl/  GH  200) 
COMMON  /BLKA02/  A  1(  433) 


COMMON  /BLKCOl /  CL,  CO, 

1  DH,  FK, 

2  Cl  (45  1, 

3  C 3(  12)  , 


CM,  ALPHA,  COM,  CCL,  CDR,  CORO,  CLT , 
OELCL ,  CMO ,  OCMCL,  XACWB,  CLA,  ALO, 
CLDB,  CLMAX,  C2(7),  FML 1,  FML2,  CDC, 
XACS,  C4(6>,  CDAFT ,  C5C5) 


CDT  , 


CB  «  Gl(  831 

RNOFT  =  ABS(ALT)  *  10, 0**6 
IF  (  ALT  .LT.O.O)  GO  TO  80 

CALL  ATMOS! ALT ,T , S I GMA, RHO, TMET A, DELT A, CA, AMU, l I 
RNOFT  *  SPEfcD*CA*RHC/AMU 


RIT2473 
R1T2474 
RIT2475 
R1T2476 
RIT2477 
RIT2478 
R 1T2479 
R  IT  2480 
RIT2481 
R IT  2482 
RIT24B3 
RIT2484 
R IT  2485 
RIT2486 
R1T2487 
R IT  248 8 
RLT2489 
R 1T2490 
RIT2491 
RIT2492 
R IT 2493 
R1T2494 
R IT  2495 
R  IT  2496 


80  CONTINUE 
TO  FMACH=SPEED 


IF!  JPASS. EQ.O  1  CALL  COORIO.O,  FMACH ,  RNCFT,  CDR01 

IF!  JPASS. EQ.l  1  CALL  CODRKO.O,  FMACH,  RNOFT,  COROl 

CALL  CDDRUCL,  FMACH,  RNOFT,  CORCLl 

CDR  *  CDR CL  -  CD RO 

IF!  SPEED, GT.FMLl  1  COR  *  0.0 

IF!  JPASS.E0.2  1  GO  TO  30 

CALL  DM  IN  (FMACH,  RNOFT,  COM  IN  ) 

CALL  CLWBT! FMACH) 

RE  =  RNOFT  *  CB 

IF!  RE.GT.4.0E6  )  RE  =  4.0E6 

RE  =  RE/1.0E6 

CALL  CLBRK!  FMACH,  RE,  RNOFT)  J 

CALL  CDLKFMACH,  RNUFT,  FK,  DELCL,  FRlMEK,  AKB,  AKB} 

CALL  CDR  G( FMACH,  FK ,  OELCL,  CDC) 

CALL  CMOWIFMACH,  CMO) 

CALL  ADJUST! 1,0,  FMACH,  CMO) 

CALL  WBAUFMACH,  XACWB) 

30  CONTINUE 

CALL  CD  L2 (F  MACH ,  CL,  FK,  DELCL,  PR1MEK,  AKD,  AKB,  CDL ) 
IF!  JPASS .1 F,1  )  CALI  AER A ( FMACH ,  CL,  ALPHA) 

CALL  A6RAK  FMACH,  CL,  ALPHA) 

IF!  JPASS.GT.O  )  GO  TO  50 


RIT2497 
R IT  2498 
R1T2499 
R1T2500 
R IT  2501 
RIT2502 
R 1T2503 
R  IT  2504 
R1T2505 
R  1T2506 
R1T2507 
R1T2508 
R IT  2509 
R1T2510 
R 1T2511 
R IT  25 12 
RIT2513 
R IT  2514 
R1T2515 
R1T2516 
R IT  25 17 
R1T2518 
R 1T2519 
R1T  2520 
RIT2521 
H 1T2522 
R  IT  2  52  3 
R  1T2524 
R  IT 2525 
RIT2526 
R 1T2527 
R  IT  2528 
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IF  t  AI (241) .EQ.0.0  )  GO  TO  50 
C 

00  40  I  *  l,  21 
ANG  »  I  -  l 
CALL  AFTCO( ANG  >  DCDI 
IF  (  I.EO.l  )  WRITE<6, 1000  I 
40  MRI TE ( 6f 1001)  ANG,  DCO 
50  CALL  AFTCOl  ALPHA,  C0AFT1 

CALL  TDRGdTRIM,  FHACH,  OCLT,  DCOT  ) 

C 

COM  *  COM  IN  ♦  CDC  +  CORO 
CD  CDM  COL  «■  CDR  +  CDAFT 

C 

CDT  *  CD  ♦  DCOT 
CLT  *  CL  ♦  OCL  r 
C 
C 

JPASS  =  2 

r 

1000  FORMAT (  ///  LOX,  *FUSLAGE  AFT-ENU  UPSWEEP  DRAG  *  // 

1  10X,  *WING  ANGLE*,  10X,  *DE  LCD*  /  ) 

1001  FORMAT  I  IX,  2F15.5  I 
FND 


R  IT 2524 
KIT  2530 
RIT2531 
R  IT 2532 
RIT2533 
R1T2  534 
R  IT2535 
RIT2536, 
R IT2537 
R  IT  2538 
R1T2539 
R 1T2540 
R1T2541 
R1T2542 
R IT  2543 
RIT2544 
R IT  2545 
R  IT  2546 
RIT2547 
R  IT 2548 
R IT  2549 
R1T2550 
R IT  255 1 


CC  *  00079 
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o  o  o 


c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  CODR (CL.  XMACH,  RNCF T .  CDR) 

COMPUTES  DRAG  RISF 

COMMON  /BLKC03/  CLTAB(ll),  TABMCR(ll) 

COMMON  / BLKCOI/  CK18),  TCD15),  C2(48),  FMCRO.  FML1,  FML2,  CDC. 
I  CLAMCR,  CLAML2,  C3(12),  PO,  A3,  PL,  C4i8> 

COMMON  /BLKGOl/  Gl(200) 

COMMON  /BLKPRT /  KPR(NT(50) 

ESHMC  *  Gi (49) 

TOC  *  GI ( 46) 

FOC  =  GI ( III) 

RNOFT1  =  RNOFT  /  XMACH 

CALL  LNTPIO.O,  FMCRO,  CLTAB,  TABMCR ,  11,  2) 

CALL  FDRGU.O,  RNOFT1  ) 

CDFF  =  TCO (  2 )  *■  TCD  (  3  ) 

CALL  WDRG( I.OOOOl ) 

COW1  *  TCO ( 4 ) 

CALL  WORG(I.Ol) 

COW 2  *  TCD(4) 

C.DWP  *  (COM2  -  COW  1 )  *  100. 

CDW1  =  CDWl  -  COFF 

XM  =  1 Fr”,CRO 

A3  =  (XM  *  CDWP  -2.*  C0W1 ) /XM**3 

A"  =  (3.*  CDWl  -  XM  *  CDWP ) / XM**2 

PL  *  25.  *  (TOC  ♦  2.*  FOC)  *  COS( ESWMC) **3 

PO  =  A 2  -  PL 


FML1  =,0.95 

I F  (  FMCRO.C,T  ^.90  I  FKL  1  =  FMCRO  .05 
I F  (  FML  I.GT.  fc'.O  )  FMLl  =1.0 
FML2  =  FMLl  «•  0.15 

RNOFT 2  =  RNOFT*  FMCRO /XMACH 
CALL  FORG(FMCRQ, RN0FT2) 

CALL  WORG(FMCPO) 

CALL  CLWBT( FMCRO) 

CLAMCR  =  Cl* IT) 

RN0FT2  =  RN0FT*FML2/XMACH 
CALL  FDRGIFML2, RN0FT2  ) 

CALL  W0RG(FML2) 

CALL  CLWBT ( FML  2  ) 

CL  AML  2  =  C  1  (  17) 


R1T2553 

RiT  2554 

RIT2555 

R1T2556 

RIT2557 

R1T2558 

R1T2559 

R  IT  2560 

R1T2561 

R1T2562 

R1T2563 

R1T2564 

RIT2565 

RIT2566 

R1T256T 

R IT  2568 

R1T2569 

R1T2570 

RIT257) 

RIT2572 

R1T2573 

R IT  25  74 

R1T2575 

RIT2576 

R1T2577 

RIT2578 

RIT2579 

R1T2580 

RIT2581 

R1T2582 

R IT  2583 

RIT  2584 

R1T2585 

RIT  2586 

R IT  2587 

R J  T  2588 

RIT2589 

RIT  2590 

RIT  259 1 

RIT  2592 

RIT  2593 

HIT  2594 

RIT  2595 

R  IT  2596 

RIT  2597 

KIT  2598 

R IT  2599 

RIT  2600 

R IT  260 1 

R1T2602 

R1T2603 

R1T2604 

RIT  2605 

RIT  2606 

RIT  2607 

RIT  2608 
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r. 

I F (  KPR INT ( 2  3 ) • EQ  .  1  )  HR 1 TE < 6 , 1000 >  FHCRO,  A2,  A3,  FNLl,  FHL2, 
l  CLAMCR,  CLAHL2,  CDW1,  COFF ,  CDMP 

C 
C 

ENTRY  CODR  1 
COR  -  0.0 

CDRP  -  0.0 

CALL  LNTPICL,  XMCR,  CLTAB,  TABMCR ,  II,  2» 

I F (  XMACH.GT .1.0  »  RETURN 

XM  =  XMACH  -  XMCR 

XMO  *  XMACH  -  FMCRO 

I F (  XMO. GT. 0.0  »  CORO  *  PO  *  XM0**2  ♦  A3  *  XM0**3 
IF (  XM.GT.0.0  I  COR  «  PL  *  XM**2 

IF (  XM.GT.0.12  »  COR  *  O.Q144*PL  ♦  0.24*P'  MXM  -.12) 

COR  *  COR  ♦  CORO 
C 

RETURN 

1000  FORMAT  I 5X,  *COOR  DUMP*  /11X,  7F15.5)) 

FND 


RIT2609 
R  IT  26 10 
R IT 26 11 
R IT  26 12 
R IT 26 13 
R1T2614 
R1T261S 
R1T2616 
R IT 26 17 
R1T261B 
R1T2619 
PIT 26 20 
R1T2621 
R1T2622 
R1T2623 
R IT  26 24 
R1T262*> 
R1T2626 
R1T2627 
R1T2628 


CC  *  u  076 
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n  n  o  non  o  o  r> 


r 

c 

c 

c 

c 

r 


SUBROUTINE  CLWDTl SPEED ) 

COMPUTES  WING-BODY-TAIL  LIFT  CONTRIBUTION 

COMMON  /BLKGOI/  G1I44),  OOB ,  TOC,  CLD,  SEXW,  ESWMC,  G2I30), 

1  AR,  TR,  SPLAN,  G3(U8» 

COMMON  /BLKAOl  /  NBOOYS,  NNACS,  NSURFS,  NKT,  NVT ,  ISWP,  NPNLS 
COMMON  /BLKA02  /  SREF,  A1I432) 

COMMON  /BLKCOI/  C I ( 16 ) ,  CLA ,  ALO,  C2I35I,  CLAW,  CLAB,  CLAT,  A,  B, 

1  AOH,  C,  ABREAK,  CLOH,  CLPB,  CLOB,  CLHAX ,  ABRK, 

2  AMAX,  OAMAX ,  DEL,  CLS,  ARLO,  C3I29) 

COMMON  /BLKCLA/  CLA  II  Hi 


CLAW  *  0,0 

CLAI(l)  *  SPLAN 
CL  A  I ( 2 )  -  TOC 
CLAim  *  TR 
CL  A  I  ( 4  )  *  AR 
CL  A  I (51  *  0.0 

IF(  AH234J.EQ.8.  )  CLA  II  5 1  -  0.0334 
CL  A I ( 6 1  -  CLD 
CLAM7I  *  0.0 

IF(  A  1 ( 234 1 . EO. 8.  )  CLA I ( 7 1  *  0,09 
CL  A  I (81  -  DOB 
CL  A I ( 9 )  *  0.0 

Ic(  All  234) .50.8.  I  CLA I C  91  *  1.173763  *  TOC 
CLAII 101-ESWMC 
CLAUD}*  SR  FF 

CALL  AER21SPEE0,  CLA) 

CLAW  *  CLA 

CLAT  =  0.0 

A  *  0.0 

B  =  0.0 

C  *  0.0 

ABREAK  =  90.0 

I  F  (  NHT.EO.O  I  GO  TO  30 

20  CALL  TAIL(SPEED) 

30  CONTINUF 

Cl  AB*  0.0 

IF  ( NBODYS . EO.O I  GO  TO  50 


WB 

*  All  14) 

HB 

=  Al( 24) 

AB 

=  All  64) 

BL 

=  A  1  (  4 ) 

R1T2630 
R  IT  26  31 
R1T2632 
R1T2633 
R  IT  26  34 
R1T2635 
R  IT  26  36 
R1T2637 
R1T2638 
R1T2639 
R  IT  26  40 
R1T 2641 
R IT  2642 
R1T2643 
R1T2644 
RU  2645 
R IT 2646 
R1T2647 
R IT  2648 
R IT 2649 
R1T2650 
R1T2651 
R1T2652 
R1T2653 
R1T2654 
R1T2655 
R1T2656 
RIT2657 
A1T2658 
R1T2659 
R  IT  26  60 
R1T2661 
R1T2662 
R1T2663 
R  IT  26  64 
R1T2665 
R  IT  26  66 
RIT2667 
R 172668 
R  IT  2669 
R1T2670 
RIT2671 
R1T2672 
R  IT  26  73 
RiT  2674 
R1T2675 
RIT  2676 
RIT  2677 
RIT  26  78 
RIT 2679 
RIT  2680 
RIT  268  1 
RIT  2682 
RiT 268 3 
RIT  2684 
RIT  2685 
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BLN  =  A1IB4I  R1T2686 

PERIH  =  3.1*159*SQRT((WB**2  ♦  HB**2)/2.)  R1T2687 

BHPF  *  WB/HB*PER I M/ SORT I AB )  R1T268S 

AKl  *  0.009962*BHPF  - . 000379*BHPF**2  *.00001*BHPF**3  R1T2689 

CLAB  *  AK 1  +  (BL/BLN)**0.3333  *  AB/SREi  R1T2690 

c  R IT  2691 

50  CLA  »  CLAW  ♦  CLAT  ♦  CLAB  R1T2692 

c  R IT 269 3 

CALL  AALQ(SPEEO)  R1T2694 

C4LL  ADJUST (  3t  0*  SPEFD*  ALO>  R1T2695 

r  R1T2696 

RETURN  KIT  2697 

END  R1T2698 

CC  *  00069 
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o  n  n 


SUBPOUT JNE  AER2 ( SPEED  »  CLAI 
LIFT  CURVE  SLOPE 
COMMON  /BLKPRT/  KPRINTI50I 

COMMON  /BLKCLA/  SPLAN,  TOC.  TAPER,  ARkS,  DMSTR,  CLD,  DHL,  DOB, 
I  EPSL,  SWPMC ,  SREF 

C 
C 
C 

cosz  -  cosiswpmci 

PI  *3.1  L59 

TWOD  -  1.0 

I F (  SPEED. Lf. 1.0  »  TWOO  *  1.  ♦  EPSL/SORTl l.-SPEED*+2) 

C 

c 

CSUBO  *  (10.0  ♦  0.91  *  ARWS**31 /( 10. 0  ♦  ARWS**3) 

ZMSTR  *  CSUBO  <■  (1.0  -CSUB01  *  (1.0  -  C0SZ»**2 
ZMSTRO  *  ZMSTR 

ZMSTR  *  ZMSTR  ♦  DMSTP 

ZM 1  *  1.0  -2.0  *  TOC  *  (ARWS**37(4.0  ♦ARWS+*3I> 

1  *  C0SZ**1.5*  (1.0  ♦  1.5*CLD**1.5) 

ZM 10  =  ZM  1 

IF(  ZMIO.GT. ZMSTRO  )  ZM10*  ZMSTRO 

ZM l  x  ZM10  ♦  DM1 

IF (  ZMl.GT. ZMSTR  )  ZMSTR  *  ZM1 

ZM2  *  ZM 1  ♦  TOC  +  DM  1*0. 5 

ZM30  *  1.0  +  TOC 

ZM3  *  ZM30 

I F (  ZM2.GT.1.0  )  ZM3  =  ZM2  ♦  TOC 

r 

S  101  =  0.0 
S IG2=0.0 

I F (  ZM2.NE.ZM1)  SIG1  =  0.5*((SPEED  ~ZM1»/(ZM2  -ZMII) 

I F (  ZM3.NE.ZM2)  SIG2  =  0.5*(1.0  ♦  (SPEEO  -ZM2>/(ZM3  -ZM2 » ) 

C 

TOCL  =  l.Q/(4.4*ARW  S*CO  SZ  **1.5  » 

DTC1CL  =  (  TOC  -  TOCD/COSZ 

I F (  OTOCL.LT.O.OI  OTOCL  *  0.0 

AROT  =  ARMS  *  DTOCL 

I F (  OTOCL. GT.U. 071  DTOCL  *  0.07 

I F (  ARDT.GT.O.l  I  AROT  =  0.1 

GAMMA  =  9.0  *  ( DTOCL / ( 1 . 0  ♦  0.5  *  ARDTI  » 

C 

GAMAO  =■  GAMMA 

I F (  ZM30.NE.ZM10  )  GAMMA  =  GAMAO  *( ZM3-ZH1 J / ( ZH30-ZM10) 

IF  (GAMMA. GT. GAMAO  )  GAMMA  =  GAMAO 

C 

XF  =  (16.0  *3.0*APWS**2 J /( 8.0  *5  0*ARwS**2) 

XKB  =(1.0  +DOBI*(1.0  -Dtlfl  J  **  XF 
XKT  =  1.0 

IFISPEEO.GF.ZMi. AND. SPEED. LF.ZM2)  XKT  *  1.0  - ( 4 . 0*S I Gl * ( 1 .0 
1  -  S  IG 1  )  ) **3  *  GAMMA 

IF ( SPEED. GT.ZM2. AND. SPEED. LE.ZM3)  XKT  =  1.0  - ( 4. 0*S IG2* (1.0 
l  -  SIG2I)**3  *  GAMMA 

5  CONTINUE 


R1T2700 
R1T2701 
RIT2702 
R1T2703 
R1T2704 
R1T2705 
R1T2706 
R1T2707 
R1T2708 
R1T2709 
RIT2710 
R1T271 1 
R1T2712 
R IT  2713 
R1T2714 
R1T2715 
R1T2716 
R1T2717 
R1T2718 
R IT  27 19 
R1T2720 
R1T2721 
R1T2722 
R1T2723 
R1T2724 
R1T2725 
R1T2726 
R1T2727 
RIT2728 
R1T2729 
R1T2730 
RIT2731 
R1T2732 
R1T2733 
R1T2734 
R1T2735 
R1T2736 
R1T2737 
R1T2738 
R  IT  27  39 
KIT  27  40 
R1T2741 
R1T2742 
R1TZ743 
K1T2T44 
R IT  27  45 
R1T2746 
R1T2747 
R1T2748 
R1T2749 
R1T2750 
KIT  2751 
R1T2752 
R1T2753 
R1T2754 
R1T2755 
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o  !-i  o  n  n  rs  o 


t 


C  R1T2756 

Y 1  -  2.0  ♦  0.66667  *  SORTC TAPER)  -  TAPER**2  R1T2757 

Y  *  (1.0  ♦  PI  *ARWSI /( 3.0  ♦  PI  *  ARWS)  •  Y1  RIT2758 

TWOS  -  1.0  R1T2759 

IF(  ZHSTR.LT. 1.0  )  TWOS  -  1.  ♦  EPSL/S0RT(i.-ZMSTR**2)  R1T2760 

C  RIT2761 

CLAO  *  (TWOS  *  PI  *  ARMS) /( TWOS  *  SQRT4  TWOS  ♦  (1.0  -  R1T2762 

1  CQSZ** 1 .3336 )  *  ( ARWS/(2.0*COSZ))**2  )  )  R1T2763 

I F  (  SPEED. GT. 0.0  I  8F  TAP  *  (SPEED  -  ZMSTR)  *  (1.0  RIT2764 

1  ( ZMSTR /SPEED )**Y  )**2  R1T2765 

Z1  -  PI  *  ARWS  /  CLAO  R1T2766 

Z1  «  3.0  *  Z1  *  (  Z1  -  1.0  l  *  C0SZ**0.6667  R1T2767 

l  »  ZMSTR  *  CLAO  ♦  ARWS**2/Z 1  R1T2768 

C  R1T2769 

C  R1T2770 

IF(SP6fcD.GT. ZMSTR)  GO  TO  10  R1T2771 

c  R1T2772 

CLAB  *  (  .054831  l*TWOD*ARWS) /( TWOD  *■  SQR T(  TWOD  ♦  (1.0  -  K1T2711 

1  COSZ** 1.3336  *ISPEED/ZMSTR)**2.667)*( ARWS/ ( 2. *CCSZ )  )  **2  RIT2774 

2  I)  R1T2775 

GO  TO  20  KIT 27 76 

10  ClAB  *  1.0/157.3  *(1ZMSTR/SPEE0)**Z  /CLAO  ♦  BETAP/4.0)  )  R1T2777 


R1T2778 
fl IT  2779 
R1T27B0 
R1T2781 


20  CONTINUE  K1T2782 

CLA  *  CLAB  *  XKT  *  XKB  *  SPLAN/SREF  R1T2783 

R1T2/84 
RIT2785 
R1T2786 

25  I F (  KPRINT ( 11I.E0.0  )  GO  TO  30  RIT2787 

WRITE (6,  1000)  SPEED,  CLA,  CLAB,  XKT,  XKB,  SPLAN,  S  RFF »  R1T2788 

1  ZMSTR,  ZM1,  ZM2,  ZM3,  COSZ,  CSUBG.  ARDT,  R1T2789 

2  TOC,  TAPFR,  ARWS,  DMSTR ,  CLD,  DM1,  DOB,  TWOD,  SHPMC  RIT2790 

1000  FORMAT ( 10X*AER2  DUMP*,  6F15.5  /( 1 9X ,6F l 5*  5)  )  R1T2791 

r  R1T2792 

30  RETURN  R1T2793 

END  R1T2794 


CC  *  00095 
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SUBROUTINE  TAIL ( SPEED ) 

R1T2796 

R 

R1T2797 

f, 

COMPUTES  TAIL  FLOW  FIELD  AND  LIFT 

R1T2798 

C 

COMMON 

/BLKCL A/  CL A  I  ( 11) 

R1T2799 

R1T2800 

c 

R1T2801 

COMMON 

/BLKA02/  SREF,  Al<428),  HTLE ,  HTV,  HTZ,  TINC 

R1T2802 

COMMON 

/BLKBDl/  XSWPL! 111.  YRMIN(LI) 

R1T2L03 

c 

R IT  2804 

COMMON 

/BLKG01/  G l I 791.  AR,  TR ,  SPLAN.  CB.  Yfl.  XMAC.  G2I16), 

HIT  2805 

I 

SWPQC ,  G3( 4 1.  XHT.  XCRTE •  G4I92) 

R1T2806 

c 

COMMON 

/BLKCOl/  Cl(37l,  CDWING14),  C2II2).  CLAW. 

CLAB,  CLAT.  A, 

R1T2807 
B.  R1T2808 

1 

AOH.  C.  A  STR ,  CI.DH ,  C3I3I),  DEDA. 

C4(6 ) 

R1T2809 

c 

COMMON 

/BLKPRT /  KPRINTI50I 

R1T2810 

R1T2811 

c 

R1T 2812 

c 

R1T2813 

c 

** 

DOWNWASH  IS  CALCULATED  **«■ 

R IT  28 14 

c 

ARHT 

-  Gii  in 

R1T2B15 

R1T2816 

SEXHT 

-  G  L  (  2 1 ) 

R1T2817 

SWLHT 

-  All  389  I 

R IT  2818 

HTL  AM 

-  All  409 ) 

R1T2819 

CAMHT 

=  All  339) 

R1T2820 

HTflC 

=  Ail  349) 

R1T2821 

SWMCHT 

=  ATANITAN!  SWLHT  1  -2. /ARHT  *  (I.  -HTL  AM)  -Ml 

„*HTLAM)  1 

R1T2822 

r 

10 

ZKA 

-  l./AR  -I. /(I.  ♦  AR**1.7) 

RIT2823 

RIT2824 

IF(  AR 

.IT. 2. 3  )  ZKA  -  0.37  -  0.0567  *  AR 

R1T2825 

ZKTR 

*  I 10.  -  3.0  *  TR  )/7.0 

R IT  2826 

B 

«  SORT!  AR  *  SPLAN  ) 

R1T2827 

r. 

OEDA 

*  0.0 

R1T2828 

R1T2829 

XLHT 

=  XHT  -  XMAC 

R1T2830 

I F (  XLHT. LE. 0.0  »  GO  TO  30 

RIT2831 

c 

HHT 

*  HTZ 

R1T2832 

R1T2833 

c 

ZKH 

*  ll.  -  HHT/B ) /( 2 .0  *  XLHT/B)**0. 33333 

R1T2834 

R1T2835 

c 

COSO 

-  SQRTICO'.I SWPQC ) ) 

R1T2836 
R IT  2837 

20 

OFn/vn 

*  4.44  *  I7KA  *  ZKTR  *  ZKH  *  COSO  )**1.19 

R IT  2838 

c 

R1T28  39 

!F!  kpr  *W!  i  5i  I  Fn  .n  I  r.n  tn  ?l 

R1T2S40 

WRITE  16,  1000  ICL AW.DEL AD.CDWING!  L  >  .COWING!  2)  .COWING!  3)  .COWING  (4 1 

,  RlT284i 

l 

HTL F, All  281  I , CB , ZKA ,ZKTR , ZKH.COSQ 

R1T2842 

21 

CONT INUF 

RIT2843 

CALL  AER2I0.1.  CLAMO) 

R1T2844 

DFO  A 

*=  IJE DAO  *CLAW/CLAMC 

R1T2845 

c 

RIT2846 

c 

** 

DYNAMIC  PRESSURE  AT  THE  TAIL  *** 

R IT  2847 

c 

10 

CDO 

=  C0WINGll)*CDWING!2)*CDWING(3)*CDWING(  ,) 

R1T2848 

R1T2849 

c 

xnc 

=  !  XHT  -  XCRTF  )  /CB 

R1T2850 

RIT2851 

150 


0000  -  0.0 

IF (  XOC. LE. 0.0  I  GO  TO  50 

ZMOC  *  0.68  *  SQRTC COO  *  ( XOC  *  0. LSI  I 
OOOQO  -  2.42  *  SQRTICOOI/CXOC  ♦  0.3) 

GAMMA  -  ATAN(HTZ/( XOC*CB ) ) 

AM  «  2.0 

CL  -  CLAM*  AM 

EM  -  0.51566  *  CL/AR 

Z7C  *  XOC  *  TAN(GAMMA  ♦  EM  -  AM/57.3) 

ZOZM  «  ZOC/ZMOC 

IF  I  ZOZW.GF. 1.0  )  GO  TO  50 

0000  *  00000  *  (COSC 1.570756*  Z0ZM))**2 

50  000  *  1.0  -  OQOO 

**  CARRY-OVER  FACTORS  ZKMB  AND  ZKBM  ARE  COMPUTED  *** 


60  DOBHT  «  2.0  *  HTY/(2.0  *  HTY  ♦  SORT ( ARHT  *  SEXHT)  ) 

ZKMB  *  1.0028  ♦  .71 16*00BHT  ♦.42*D0BHT**2  -.1366*D0BHT**3 
ZKBM  -  .0004  ♦1.2662*DOBHT  ♦.6018*D0BHT**2  ♦  . 1263*OOBHT**3 

**  LIFT-CURVE-SLOPE  OF  THE  FXPOSED  SURFACE  IS  COMPUTED  *** 


70  CALL  AER2ISPEE0,  CLA) 

CLAT  *  CLA  *  ( ZKMB  ♦  ZKBM)  *  Cl. 
r.l  OH  «  CLA  *  ZKMB  *  000 


-  DEDA)  *  QUO 


**  INDUCED  ORAG  FACTOR  FOR  TAIL  IS  COMPUTED  *** 

CALI  LNTPCSMLHT,  RT  SUB  t  XSMPL.  YRHIN,  11,  2) 

RTAIL  -  RTSUB 

IF  (  SF^ED.LE.0.9  )  GO  TO  80 

ZNDM  *•  12.0  *  ( COSI  SWLHTJ**1.6)  *  I  SPEED  -  0.9) 
FNDM  *  1.0/11.  ♦  ZNDM  ♦  ZNDM*ZNDM» 

RTAIL  =  RTSUB  *  FNDM 

80  HI K l  =  Cl.-RIAIL)  *  0.01745  /(CLA  *  ZKMB) 

HTK 2  =  RTAIl  *  0.31831  /ARHT  *  SREF/SEXHT 


R1T2852 
R1T2853 
R1T2B54 
R1T2855 
HIT  2856 
R1T2857 
R1T2858 
HIT 2839 
RIT  2860 
R1T2861 
RIT  2862 
RIT  2863 
RIT  2864 
R1T2865 
RIT 28  66 
RIT  2867 
RIT 28  68 
RIT  2869 
HIT 28  70 
RIT 28  71 
RIT  28  72 
RIT 28  73 
RIT  28  74 
RIT 28  75 
RIT 28 76 
RIT  2877 
R1T2B  78 
RIT  28  79 
RIT  2880 


CLAIC 1) 

m 

SEXHT 

R IT  288 1 

CLAIC2) 

* 

HTOC 

RIT 2882 

CLAM3) 

m 

HTLAM 

RIT  2883 

CL  A 1 14) 

a 

ARHT 

RIT  2884 

CLAI (5) 

m 

0.0 

R1T2US5 

CLAIC6) 

CAMHT 

RIT  2886 
R1T2B87 

CLAI  17) 

a 

0.0 

RIT  2888 

CL  A  I ( B ) 

m 

0.0 

RIT 2889 

Cl  A I (9) 

M 

0.0 

R IT  2890 

CLAI! 10) 

ir 

SWMCHT 

RIT  2891 

RIT  2892 
R  IT  2893 
RIT 2894 
HIT  2895 
RIT  2896 
RIT  289  7 
RIT  2898 
RIT  2899 
RIT  2900 
RIT  2901 
RIT  29  02 
R  IT  2903 
RIT  2904 
RIT  2905 
RIT  2906 
RIT  2907 
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HTK  >  HTKi  *  HTK2  RIT2908 

R1T2909 

A  ■  HTK  +  CLDH  *  CLOH  R1T2910 

B  -  2.0  *  HTK  *  CLAT  *  CLDH  RLT2911 

AOH  -  ( L.-DEDA  I  *  (AK279I  -  TINCI  R1T2912 

R  IT  29 1 3 
R  IT  29 14 

IF(  KPRINTC 21I.EQ.1  !  HR  1 TE (6 • 1000)  CLAT,  SPEED.  CLA,  ZKUB.  DOBHT, R1T2915 

1  2KBW.  DEDA.  QOQ,  CLDH.  A.  B.  AOH.DEDAO.  RLT2916 

2  RTSUB, RTAIL, HTKI ,HTK2, HTK  RIT2917 

R1T  2918 

RETURN  R1T29L9 

1000  FORMAT! 10X.*TAIL  LIFT  DUMP*  /(IX.  7FL5.5I  )  RIT2920 

END  R1T2921 


CC  -  00126 


t 
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r>  o  n 


[ 

! 

f 


SUBROUTINE  A ALO ( SPEED  ) 

C 

C  CALCULATE  ,  ZERO  LIFT  ANGLE  OF  ATTACK 

C 

COMMON  /8LKA02/  AU433) 

r 

COMMON  /BLKGOl/  G1144I,  DOB.  TOC,  CLD,  G2I33),  TAP,  03(201, 
l  ESWQC,  G4I 98 ) 

C 

COMMON  /BLKC 01/  C4I16I,  CLA ,  ALO,  C5I35),  Cl,  C2,  C3,  C6I44I 

C 

COMMON  /BLKPRT/  KPRINTI50) 


C 


C 


C 

C 

C 


C 


ALOC  -  0.0 

ALOT  -  0.0 

ALT) I  -  0.0 

TMIST  -  G4( 101 

RINC  -  A I ( 280 1 

OINC  «  G4(ll> 

TINC  -  A  1 ( 4331 


XMCR  -  0.75 

XMNO  -  SPEED  *  COS( ESWQC) 


TOCO  -  TaC/COS(ESWQC) 

I E (  TOCO.LT.O.l  )  XMCR  -  0.75  ♦  1.25  *  (0.1  -  TOCO) 

OALODC  ■  5.6 

IF  I  XMNO. GT. XMCR  )  DALOOC  *  5.6  -  249.0  *  (XMNO  -  XMCR)**2 
I F (  DALOOC. LT. 0.0  )  DALOOC  -  0.0 


ALOC  *  -  DALOOC  *  CLD 


200  I F (  TWIST. EQ. 0.0  I  GO  TO  300 
I F (  SPEED. GT. 1.0  >  GO  TO  300 
TAU  *  TWIST 

BETA  =  SORT (1.0  -  SPEED**21 
SUPQCB  -  90.0 

I F (  BETA. GT. 0.0  I  SWPQCB  »  A TANl TAMl F SWQC ) /BETA)  *  57.29578 
DALO  =  0.093  -  0.000571*SWPQCB  +  0.576l*TAP  -0. 2645 *T AP**2 
ALOT  >  -  OALO  *  TAU 


R1T2923 
R1T2924 
R  LT  2925 
R1T2926 
RIT2927 
RIT  2928 
RIT2929 
R1Y2930 
RIT 29  31 
RIT  2932 
RIT2933 
R IT  2934 
RIT  2935 
RIT  29  36 
RIT  2937 
RIT  2938 
RIT 29  39 
RIT  2940 
RIT  2941 
RIT  2942 
R IT  2943 
R1T2944 
RIT  2945 
R1T2946 
RIT 294 7 
R1T294B 
R  IT  2949 
Rif  2950 
R1T2951 
R1T2952 
R1T2953 
RIT  2954 
R1T2955 
RIT  2956 
KIT  2957 
R1T2958 
RIT  2959 
RIT 29 60 
RIT  2961 
KIT 29 62 
R1T2963 
R1T2964 
RIT  2965 
R1T29  66 


C 


300  TFI  OINC. EQ. 0.0. AND. TINC .EQ. 0.0  )  GO  10  400 

ZKRW  =  .0004  +1.2662*00B  +  .  60 1  B*D0B**2  +  .  1 263*008**3 
ZKWB  *  1.0028  +.7116*008  +.42  *00B**2  -.1366*008**3 
CLAB  *  C3  +  ZKBW/ ( ZKRW  ♦  ZKWB)  *  Cl 
ALOI  =  (CLAB  *  DINC  +  C2  *IDINC  -  TINC) ) /CLA 
1  +  (R INC  -  DINC  ) 


400  ALO  -  +  ALOC  +  ALOT  +  ALOI 

IF(  K PR  INTI  1 31.GT.0  )  WR I TF ( 6 , l 00 0 5  ALO, 

1  ALOI,  SPEED,  ESWQC,  TOC, 

2  TAP,  Cl,  C  2 ,  C3 ,  CLAB, 

3  ,  R  I NC 


ALOC,  ALOT, 

CIO,  TAU,  SWPQCB,  DOB, 
ZKBW,  ZKWB  ,  DINC, TINC 


K  lT  29  67 
R1T2968 
RIT  2969 
RIT 29  70 
RIT  2971 
R1T2972 
RIT  2973 
R1T2914 
RIT 29  75 
R1T29 /6 
RIT 29  77 
R1T29/8 


1  b  3 


C  R1T2979 

1000  FORMAT (5X,*AAL0  DUMR*,5X,*A10  »*, F6.3«5X,*AL0C  ■•♦F6,3,  R1T2980 

1  5X,*A10T  -*,F6.3,5X,*AL0I  »*,F6.3  /<5X»7F15.5l  I  R1T2981 

RETURN  R IT  2982 

ENO  R1T2983 

CC  »  00061 


154 


cm  m  \t\ 


SUBROUTINE  CLBRKISPEEO,  RE,  RNOFT) 

CALCULATES  LIFT  BRFAK  CL  AND  CL MAX 

COMMON  /BLKGOl/  GK45),  TOC,  CLD,  SEXW,  G2I31),  AR,  TR,  SPLAN, 

1  CB,  G3( 18 ) ,  SWPQC,  SWPLE,  G4I97) 

COMMON  /BLKAOl/  NBODYS,  NNACS ,  NSURFS,  NHT ,  NVT ,  I  SUP,  NPNLS 

COMMON  /BLKA027  SREF,  A1I432) 

COMMON  /BLKPRT /  KPR  INTI  50) 

COMMON  /BLKCOL/  C3116),  CLA,  ALO,  C4C35),  CLAM,  CLAB,  CLAT,  C6(6) 

1  CLPB,  CLDB «  Cl. MAX,  ABRK ,  AMAX,  DAMAX,  DEL, 

2  CLS,  ARLO,  C5( 291 

COMMON  /BLKMAP/  MAP,  TRANS,  DY,  AMAPI22I,  BMAP(il) 

COMMON  /  BLKCLB/  XI(6),  Y  It  6 )  ,  X9(  8)  ,  Y9(B),  XAR(5»,  YDCH5I 

COMMON  /BLKB02/  AAI22),  BB(22),  CCI22I,  D0I22K  XT(22> 

COMMON  7BLKB05/  XDY0I6).  YXMNI6),  Z1BD5(6,6I 

COMMON  /BLKMAX/  XTRI6},  YC1I6),  YC2I6I,  XSWPI4I  ,  YA(4) , 
l  YB ( 4 ) ,  XOY(fl),  XM ( 4) ,  CTAB(8,4I,  DTAB(8,4), 

XXCLP (131,  YY0YI6I,  FCLMX(13,6),  XXC2I9), 
YYMACMI5I,  F0CLMX19.5I ,XDYIC9) ,  VXMTI4), 

ZC  LMAXI 9,4),  X0Y2IBI,  YF0CI6),  ZDCIM(8,6), 
Z2DC1M( 8,6) 

COMMON  / BLKMX2/  XSPI8),  YDY( 6) ,  FDAIB.6),  XABI6),  YC0(8), 
l  FKV0FM(6,B),  XANG(IO),  YRT0CI7),  FRAI10,7> 

COMMON  /BLKMX4/  XC2(6),YAST(9),FDAM(6,9) , XCT ( 6 ) ,YMI 5 ) , FDAM2 (6, 5 ) 
COMMON  / BLKMX5/  XXXCLMI 9 ) ,  FCLMXX(9,6) 

DIMENSION  XFU7I,  YFI(7»,  YF2I71 

DATA  XFI  7  5.0,  6.0,  6.47712,  6.77815,  6.95424,  7.39794,  B.  /, 

1  YFI  7  -.125,  -.II,  -.02,  -.01,  0.,  0.03,  0.035  7, 

2  YF2  7  -.1063,  -.0713,  -.055,  -.0175,  0.,  0.0375,  0.04637 

IF  €  SPEED.  GE.l.O  )  GO  TO  20 

N I  *  All  234) 

CONCL  =  All  276 ) 

DYO  *  AMAP(NI)  *  TOC 

IFC  DYO. LT. 0.8  )  DYO  =  0.8 
IF (  DYO. GT. 2.4  )  DYO  *  2.4 

XMN  -  SPEFD  *  C0$( SWPQC  ) 

I F (  XMN. LT. 0.2  I  XMN  =  0.2 
XMNO  *  XMN 

CLIN  -  CLD7C0SI SWPQC)**2 

I F (  XMN. GT. 0.7  )  XMNO  =  0.7 

ABRKO  =  DLNTIOYO,  XMNO,XOYO,  YXMN ,  Z1BD5,  6,6,  6,  4,2) 

ABRK  =  I  ABRKO  «•  ( 1 2. 05-4 . 1 *XMN ) *CL I N  )  *  COS(SWPQC) 


RIT2985 
R1T2986 
R1T2987 
R1T2988 
R1T2989 
RIT2990 
R IT 2991 
R1T2992 
R1T2993 
R IT  2994 
KIT  299 5 
RIT2996 
, RIT  299  7 
R1T299B 
RIT  2999 
RIT  3000 
RIT 3001 
RIT 3002 
RIT  300  3 
RIT 3004 
RIT 3005 
RIT  3006 
RIT 3007 
RIT  3008 
HIT  3009 
RIT  30 10 
RIT 30 11 
RIT  3012 
RIT  3013 
RIT  3014 
R1T3015 
R IT  3016 
RIT  3017 
R1T3018 
R1T3019 
RIT 3020 
RIT  302 1 
RIT  3022 
R IT 3023 
RIT  3024 
R  IT  3025 
RIT 3026 
RIT  3027 
RIT  3028 
RIT 3029 
R1T3030 
RIT  303 1 
RIT  3032 
R IT  3033 
RIT 3034 
R  IT  3035 
R IT  3036 
RIT 3037 
R IT  3038 
RIT 30 39 
RIT 3040 
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ABRKLO  *  2./COSI5WPLE  1 
I F  C  ABRK.LT . ABRKLO  )  ABRK  »  ABRKLO 
CLPBO  «  CLA  *  ABRK 

r 

OCLP8  *  0.0 
FPB  -  1.54 

IF l  XMN.GT.0.5  )  FPB  *  1.54  -  2.9  *  IXMN  -  0.5) 

IFI  CONCL.GT.O.O  i  DCLPB  *  FPB  *  (ICONCL  ♦  .0643 )*COSISWPQC) 1**2 

C 

CL PB  *  CLPBO  s  DCLPB 
C 

OCLDRP  =  0.1226  -.00714*SPFED  -. 12857*SPEED **2 

r 

I F (  NI.LF.9  )  OY  *  AMAP  ( N I 1  *TOC  +BNAPI NI 1  *CLD 

IFI  NI.GT.9  )  DY  =  AMAPINI)*TOC  +1.75*CLD 

C 

TRANS  -  0.0 

I F (  CY.GT.1.65  )  TRANS  *  (OY  -  1.65)/. 4 
IFI  DY.GE.2.05  I  TRANS  -  1.0 
IFI  SWPLE.GF.0.87  )  TRANS  *  0.0 

CL013  *  CLPB  ♦  TRANS  *(-.0376  -.24414*SPEED  -.0685*SPEED**2 

1  +.4149*SPEED**3  *  RE  *  DCLDRE  ) 

r 

GO  TO  30 
C 

20  BETAC  -  SORTISPEEO  *  SPEED  -  1. 1 /TANI SWPLE 1 
CLSB1  «  0.85 
CLSB9  -  0.85 

IFI  SWPLE.GT.O.  7243  )  CALL  LNTPISWPLE,  CLSB1  ,  XI,  Yl,  6,  4) 

IFI  SWPLE.GT.O. 3665  )  CALL  LNTPISWPLE,  CLSB9,  X9.  Y9,  8,  4) 

CALL  LNTPIAR,  DCLAR,  XAR ,  YDCL ,  5,  4) 

CLSB9  *  CLSB9  ♦  DCLAR 

CLSR  *  CL  SB  1  ♦  (CLSR9  -  CLSBil  *  I  BE  TAC  -  .1)  *  1.25 
CLSB  *  CL SB  ♦  0.5  *  CLD 
CLPB  *  CLSB 
CLDB  *  CLSB 

C 

r  SUPERSONIC  MAXIMUM  LIFT  COEFFICIENT  **** 

CNAP4B  =  CLAW  *  14.325  *  SORT! SPEED*SPEED  -1.1 

C 

OM  =  l. /SPEED 

CLMAX  =  0.7722  +  0.3384  *  OM  *1.1648  *  QM*GM  -0.8215  *  0M**3 

r 

CM  l  =  1.  -  CNA048 

IFICM1.LT. 0.0  )  CM l  *  0.0 

c 

CLMAX  =  CLMAX  -  0.04H  +  CM1 

r 

AMAX  =  68.5429  -177.2327  *  DM  +461.9204  *OM*OM 
1  -629.4522  *  0M**3  +321.4001  *  CM**4 

r. 

AMAX  *  AMAX  +15.8074  - 3.0001*CNA04B  - 12. 8073*CNAC4B**2 

C 

IFI  CLMAX. GT .1.25  )  CLMAX  =  1.25 
IFI  AMAX. GT. 54. 5  )  AMAX  =  54.5 

r 


R IT 3041 

R1T3042 

R  IT  3043 

R  IT  3044 

R1T3045 

R IT  3046 

R IT 3047 

R1T3048 

R1T3049 

R IT 3050 

R1T3051 

R1T3052 

R  IT  3053 

R1T3054 

R1T3055 

R1T3056 

R1T3057 

R1T3058 

R IT  3059 

R1T3060 

R1T3061 

R1T3062 

R  IT  3063 

R1T3064 

R  IT  3065 

R1T3066 

R1T3067 

R1T3068 

R1T3069 

R1T30  70 

R1T3071 

R1T3072 

R1T3073 

R1T3074 

R1T3075 

R1T3076 

HIT  3077 

R1T3078 

R  IT  30  79 

R1T3080 

R1T3081 

R1T30  8  2 

R IT  308 3 

F:iT  3084 

R1T3085 

R1T3086 

RIT3087 

R  IT  30  8  8 

R IT  3089 

R1T3090 

R1T3091 

R IT  3092 

R IT  3093 

R IT  3094 

R IT  3095 

R IT  3096 
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o  n 


c 


c 


c 


c 


c 

c 


c 


r. 


c 


r 


c 


c 

c 

r. 


GO  TO  300 

RIT  3097 

30  CONTINUE 

RIT  3098 

RIT 3099 

CLMAX  -  0.0 

RIT  3100 

N I  *  A  1 ( 234) 

HIT  3101 

CY  ■  AMAP(NI) 

*  TOC 

R1T3102 

CALL  LNTP1TR,  Cl, 

XTR  , 

YCI,  6,  4) 

RIT  3103 

CALL  LNTPITR,  C2, 

XTR, 

YC  2,  6,  4) 

RIT  3104 

RIT  3105 

C1COS  *  <C1  4  l. 

)  *  C0S«  SWPLF  ) 

R IT  3106 

ARUP  =  4./C1C0S 

RIT  3107 

ARLO  *  3./C1C0S 

RIT  3108 

RIT  3109 

RIT  31 10 

XMT  ■  XT ( N  I  ) 

RIT  3111 

IF (  XMT. LT. 0.3  > 

XMT  - 

0.3 

RIT  31 12 

IFl  XMT. GT. 0.45) 

XMT  « 

0.45 

RIT  31 13 

I F (  AR.LE.ARLO  ) 

GO  TO 

200 

RiT 3114 

R IT  31 15 

CIMAXB  *  OLNT ( OY, 

XMT, 

X0Y1,  YXMT , 

ZC1MAX,  9,  4,  9,  2,2)  R1T3116 

FOC  *  5.500  *  CLD 

RiT  31 17 

DC IM AX  »  OLNT ( DY, 

FOC  , 

X0Y2,  YFOC, 

ZDCIM,  8,  6,  8,  2,2)  R1T3118 

I F (  XMT. GE. 0.35  ) 

DC1MAX  -  DLNTIDY 

,F0C,XDY2,YF0C,Z2DC1M,8,6,8,2,2)RIT3U9 

RIT 3120 
R1T3121 
R1T3122 
RiT  3123 
R IT  31 24 
RIT  3125 
RIT  3126 
R IT  3127 
R IT  3128 
RIT  3129 
RIT  3130 
RIT3131 
RIT  3132 
R1T3133 
KIT3134 
RIT  31 35 
HIT  31 36 
RIT  3137 
RIT  31 38 
R  IT  31  39 

O  1  T  It  Art 
r  L  I  J  4  "TV 

RIT  3141 


RNCB  *  AL0G10 I RNOFT  *  CB) 

CALL  LNTPtRNCB,  FI,  XF1,  YF  s  7,  2» 
CALL  LNTP (RNCBt  F2,  XFl,  YF  ,  7,  2) 
DCIRN  «  FI  4  F2  *  DY 

C IM  AX  *  CiMAXB  4  DC1MAX  ♦  DC  1RN 

SWEEP  *  SWPLE  *  57.2956 
100  CALL  LNTP ( SWEEP •  A,  XSWP,  YA,  4,  4) 
CALL  LNTPCSWEFP,  B,  XSWP,  YB,  4,  4> 

DYM14  *  DY  -  1.4 
I F (  PYM14.LT.0.0  )  0YM14  =  0.0 
I F (  DY.GT.2.5  )  DYM14  *  l.  I 


CLMOCl 

CLMAX 

C 

0 


A  -  B  *  CYM14 
CLMOCl  *  C1MAX 


DLNT ( OY •  SPEED,  XDY,  XM,  C 

rsi  kiv  i  nu  rnr  r  win  w  wU  r\ 

Ui.n|l|UT»  arcrut  Ant  u 


CTAB ,  8,  4,  8,  2,2 


,o  ,  o  , 


DCL  MAX  =  C  4(0-0*  SWEEP/60.  K1T3142 

CLMAX  =  CLMAX  4  DCLMAX  RIT3143 

RIT  3144 

120  DAMAX  =  0LNT(  SWEEP ,  OY,  XSP,  YDY ,  FDA,  B,  6,  8,  2, 2)  R1T3145 

AMAX  =  CLMAX/CL AW  4AL0  4DAMAX  RIT3146 

CL  S  =  CLA  *  (AMAX  -  2.*DAMAX  -  ALO)  R1T3147 

GO  TO  300  R1T3148 

RIT 3149 

LOW  ASPECT  RATIO  METHOD  P1T3150 

RIT  315  1 


200  CONTINUE 


R1T3152 
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ABETA  -  AK/SORTd.  -  SPEED  *  SPEED) 
xci  M  =  ABETA  *  CICOS 

I F <  XMT.LE.0.35.QR.XCLM.GE. 2.0  )  CLMXB  =  DLNT ( XCL M »  DY ,  XXCLM, 
l  YYDY,  FCLMX,  13,  6,  13,  2,2) 

I F (  XMT. GT. 0.35. AND. XCLM.LT. 2.0  >  CLMXB  =  DLNTIXCLM,  DY ,  XXXCLM, 
1  YYDY,  FCLMXX ,  9,  6,  9,  2,2) 

C2TAN  =  (C2  ♦  1.)  *  M  *  TAN ( SWPLE ) 

OCLMX  =  DLNKC2TAN,  SPEED,  XXC2,  YYMACH,  FOCLMX,  3,  5,  9,  2,2) 

CL  MAX  =  CLMXB  ♦  OCLMX 

AST  -  AP  *  COS ( SWPLE )  *  (1.+  4.0  *  TR*TR) 

AMAXB  35.0' 

I'"(  XCLM.GT  .0.9  )  AMAXB  -  49.8473  -20.692 2*XCLM  «-!>.06  74*XCLM'*2 
L  -0.4279*XCLM**3 

IF<  XCLM.GT. 3. 6  )  AMAXB  =  21.0 

I F (  C2TAN.LE.4.5  )  DAM  =  0LNTIC2TAN .AST ,  XC2,  YAST ,FDAM ,6 ,9 ,6,4, 2 
I F (  C2TAN.GT.4.5  t  DAM  =  DLNTJC 2TAN , SPEED  ,XCT , YM,F D AM2 ,6, 5 ,6 , 4, 2 ) 


AMAX 


=  AMAXB  «-  JAM 


300  CONTINUE 

TAIL  CONTRIBUTION  TU  CLMAX 


****** 


DEL  =  CLAT  *  51.3  *  S I NC  AMAX/57. 3 )  *  COSl AMAX/57.3 ) **2 
CLMAX  =  CLMAX  4-  DEL  ' 

I F (  KPRINTI 16) .EQ.l  )  WRITE (6,1000)  CLPB,  CLDB,  ABPKO,  ABRK, 

1  XMN ,  DYO,  DCLPB ,  TRANS,  BETAC,  DY,  Cl,  C2 ,  AMAX,  ARUP 

2  ARLO.XMT ,C1MAXB,DC1MAX,CLM0CI ,UCLMAX,PEL , 

3  XCL M ,  CLMXB,  C2TAN,  OCLMX,  CLMAX,  0C1RN,  RNCB 
10 FORMAT  (  10X,  *CLBRK  DUMP*  /(IX,  7F15.5)  I 

RETURN 

END 


R1T3153 
R1T3154 
R1T3155 
R1T3156 
R1T3L57 
R1T3158 
R1T3159 
R1T3160 
R1T3161 
R1T3162 
R1T3163 
R1T3164 
R1T3165 
R1T3166 
RIT3167 
R1T3168 
R1T3169 
)  R1T  3170 
R1T3171 
R1T3172 
R1T3173 
R1T3174 
R1T3175 
R1T3176 
R1T3177 
R1T3178 
R1T3179 
R1T3180 
R IT  318 1 
,  RIT  3182 
R1T3133 
RIT  3184 
R1T3135 
RIT3186 
R1T3187 
R1T3188 


CC  =  00204 
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no  r>  n  o  n  rt  r>  n  r>  n  r>  n 


SUBROUTINE  COL  1 (SPEED*  RNOFT,  FK,  DELCL .  PRIME*.  AKD.  AKB ) 
COMPUTES  DRAG  OUE  TO  LIFT  CONSTANTS 

COMMON  /BLKAQL/  NBODYS,  NNACS.  NSURFS,  NHT,  NVT,  ISWP,  NPNLS 

COMMON  /BLKA02/  SREF,  A1I223),  CBARIIOI,  TWUO),  CAM(IO),  TOCdOl 
1  A2I12),  CONCL,  A3( 25)  .  YW(ll),  A4II20) 

COMMON  /BLKGOl/  G1I44),  OOB ,  TOCW,  CLD, 

1  G3( 12 ) .  XLESWUO),  G4C10),  AR,  TR.  SPLAN.CR, 

2  G5(  16 ) .  SWPQC  »  SWPLE,  G6II1).  CBAR2 .  CLDS,  TOCS, 

3  G  7(  83  ) 

COMMON  /BLKBOI/  XSWPL(ll),  YRMINII1) 

COMMON  /BLKBD2  /  AAI22),  8BI22),  CCI22),  DDI22),  XTI22) 

COMMON  /BLKA16/  XSWP ( 7 ) .  YTR 14).  FEP35(7,4),  FEP7I7.4), 

I  XCLOB ( 7 ) ,  YAKBI7) 

COMMON  /BLKC  01/  C 1 C 1001 

COMMON  /BLKPRT /  KPRINT150) 

0  IMFNS  ION  OCUR V 1131.  RCURVII3),  XRN I  9) .  YORT I ( 9 ) .  Y0RT2I9) 

DATA  OCUf.V  /  2.,  4..  6.,  10.,  20.,  30.,  40.,  50.,  60., 

1  80.,  100.,  130.,  200./, 

2  RCURV  /  0.17,0.37,0.48,0.6,0.73,0.782,0.81,0.83,0.84, 

3  0.855,0.865,0.874,0.874  / 

DATA  XRN  /  0.,  5.,  7.,  10.,  20.,  40.,  100.,  300.,  600.  /. 

1  YDRT1  /  .07,-07, .05, .025,  5*0.0  /, 

2  YDRT2  /  .175, .175, .165, .12, .05, .03, .015, .005, 0.0  / 


Cl(  171  *  57.29576  *  SREF/SPIAN 
YW<  1+NPNLS)  -  YWll) 

0.0 

0.0 

0.0 

0.0 

CLM 

C 1 ( 77)  *  5’. 29578  *  SREF/SPLAN 


CLOfi  =  C  l  ( 64  I 

CALL  LNTPICLDB,  AKB,  XCLOB,  YARD,  7,  2) 

FARR  =  1.24  -.04  *  RNOFT  *  CB  *  1.0F-6 
I F ,  .  „KB.LT .1.0  )  FAKB  =  1.0 
ARB  =  FAKB  *  AKB  *  SRFF/SPLAN 

B  -  -1.41  ♦ 1 .442*TR  —  1 . 26*TR**2  +.  528  +  TR**3 

C  *  0.  7125  - 1 . 49 7*TR  +l.47o*TR**2  -.6909*TR**3 

EO  =  1.0  +  B  *  OOB  ♦  C  *  00B**2 

FMACH  =  SPFFO 


RIT3190 
R1T3191 
R IT  31 92 
R1T3193 
RIT3194 
KIT  3195 
,R1T3196 
RIT3197 
R1T3198 
R1T3199 
R IT  3200 
R IT  320 1 
KIT  3202 
R IT  320 3 
R IT  3204 
R1T3205 
R IT  3206 
R1T3207 
R1T3208 
R1T3209 
R IT  32  10 
R IT  32 11 
RIT3212 
R IT  32 13 
R  IT  32  14 
R1T3215 
R1T3216 
R IT  32 17 
R1T3218 
P IT  32  19 
R IT  3220 
R1T3221 
R1T3222 
R1T3223 
R IT  3224 
R IT  322  5 
R IT  3226 
R1T3227 
R1T3228 
R IT  3229 
R1T32  30 
KIT  32  31 
R1T32  32 
R IT  3233 
R IT  32  34 
R IT  32  35 
R1T32  36 
R1T3237 
R1T3238 
R1T3239 
R1T3240 
RIT3241 
R IT  3242 
R IT  3243 
R IT  3244 
R IT  3245 
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c 

r 


c 


c 


c 


c 


c 

c 

c 

r. 


c 

c 

c 


FMCRO  =  C1(72J 

FML1  =  C1I731 

FML  2  *  Cl ( 74) 

IF!  FMACH.GT. FMCRO  I  PMACH  *  FMCRO 

I F (  SPEED. GF. FMCRO. AND. SPEED. LT.FML2  »  CLMO=  Cl<76)  * 

1  57.29578  *  SREE/SPLAN 

I F (  SPEED. GT. 1.0  I  CALL  AOCLl SPEED,  CLOPT) 

I F (  SPEED.LT.FML2  )  CALL  ADCL ( FMACH ,  CLOPT) 

N I  =  TWll) 

DO  100  I  *  1,  NPNLS 

TC  =  TOC  (  I  J 

RLEOC  =  AAlNll  +BBIN  I  )*TOC( I )  +CC i NI) *  TOC ( I ) **2 

1  +ODIN  I  )*TOC  (  I  1**3 

IFl  NI.EQ.8  )  RLEOC  *  0.88216  *  TOC(I>**1.606 
RLE  =  RLEOC  *  CBARU) 

IFl  ISWP.EO.O.OR. I ,NE. NPNLS  )  GO  TO  90 

RLEOC  *  AAINI)  +BB  l  N  I)  *  TOC  S  +  CC  (  MI  )  +TOC  S**2.  +  DD  !  Nil  *T0CS**3 
IFl  NI.EQ.8  )  RLEOC  =  0.8C216  *  TDCS**1.606 
RLF  =  RLEOC  *  C BAR  2 

TC  *  TOCS 


90  CONTI NUF 

RNLFR  *  RLE  *  RNOFT /  10. 0**  3 
COTANS  *  5.0  -  6.511  *  XLESW(I) 

IFl  SWPL  E.GT.0.35  )  COTANS  =  1 . / TAN l XLE Sw U  M 

OMEGA  =  RNLER  *  COTANS  *  SORTll.  -  IFMACH  *  COS ( XLES U ( I)  )  ) **2  ) 
CALL  LNTP ( OMEGA ,  RT,  OCURV,  RCURV,  13,  2) 

CALL  LNTPl XLFSWl I  1 ,RMIN,XSWPL, YRMIN,  11,  2) 

IFIRT.LT.RMIN  I  RT  =  RMIN 
DRT  =  0.0 

CALL  LNTP (RNLER ,  DRT1 ,  XRN,  YDRTl,9,2) 

CALL  LNTPl RNLFR ,  DRT2,  XRN,  YDRT2,9,2) 

IFl  T  C  .GT .0.03  )  ORT  =  DRT1  *  l TC  -  0.031/0.03 

IFl  TC.GT.0.06  1  DRT  -  DRT 1  +  DRT2  *  (TC  -  0.061/0.06 

RT  =  RT  +  DRT 

R I  =  RT  +10.824  -RT)  *<CLD  ♦  C0NCD/0.6 

IFIR I .GT .0.874  )  RT  =  0.874 


D  t)  AD 


-  O  O  A  O  -i.  O  1 


LOO  CONTINUE 


AT  =  AR  *  TR/COSl SWPLE  1 

DEL R  =  0 . 0 482* A T  -0 . 01  I C?*A T*  +  2  +0.001 197*AT**3 
1  -0.00004833*AT*+4 

R  =  RBAR  +  DELR 

FK  =  (ll.-Rl/CLMO  +R/1 3. 14159*AR*E0I)  *  SRFF/SPLAN 


R1T3246 
RIT3247 
R IT  3248 
R1T3249 
RIT3250 
R1T3251 
RIT3252 
R1T3253 
R1T3254 
RIT 2255 
R IT  3256 
R1T3257 
R IT  3258 
RIT3259 
R1T3260 
R1TB261 
RIT3262 
RIT3263 
RIT  32o4 
R1T3265 
R1T3266 
RIT  3267 
RIT 32 68 
RIT3269 
R IT  32  70 
RIT3271 
R IT  32  72 
RIT  3273 
RIT  3274 
R IT  32  75 
R1T3276 
RIT  32  7  7 
Rl T  32  78 
RIT  32  79 
RIT  3280 
R 1 T  328 1 
RIT  3282 
KIT  3283 
RIT  3284 
R IT  32  85 
RIT  3286 
RIT  3287 
R IT  3288 
RIT  3289 
RIT  3290 
Rl T  329 1 
RIT  3292 
RIT  3293 
RIT  3294 
RIT  3295 
RIT  32  96 
K1T3297 
R  IT 3298 
KIT  3299 
R ) T  3300 
P1T3301 
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ro  in 


f 


c 

c 

r. 


E  =  1-/(3. 14159  *  AR 

OELCL  *  CLOPT  *  U.-El 
PRIMFK  =  0.518/SQKT (AR I 


*  F K I  »  SREF/SPLAN 


SWPC4  *  SWPOC  *  57.29578 
I F (  SWPC4.GT.60.0  )  SWPC4  *  60.0 
FP35  =  DLNT ( SWPC4*  TR  ,  XSWP  ,  YTR,  FEP35, 

FP7  =  DLNTISWPC4,  TR  »  XSWP ,  YTR,  FEP7, 

IF(  AR.LE.3.5  )  EP  *  l.  -  I1.-EP35)  *  AR/3.5 

IF(  AR.GT.3.5  )  EP  »  EP35  +  ( E  P  7  -  EP35)*(AR -3. 51/3.5 


7,  4,  7,  2,21 
7,  4,  7,  2  ,2 1 


EPP  =  EP  *  ( 1.-008*42) 

AKO  *  l./<3. 14159  *  AR  *  FPP)  *  SREF/SPLAN 


RO  -  R 

H  =>1.1 

ARTANS  *  AR  *  T AN { SWPLE ) 

I F (  ARTANS. GT. 3. 5  >  H  =  1.1*  0.1*IARTANS  -  3.5) 
I F (  SPEED. GE. 1.0  )  PRIMEK  -  H/CLM  *  SREF/SPLAN 

IFI  SPEED. LE.FML2  )  GO  TO  200 


ZNDM 
FNDM 

P 

FK 

DFLCL 
GO  TO  500 


12.  *  ICUSISWPLE)**1.6)  *  I SPEED-FHCRO) 
l./(  1.  +  ZNOH  ♦  ZNDM**2 1 
RO  *  FNDM 

U1.-R)/CLM  +R/(3. 14159  *AR*EO) )  *  SREF/SPLAN 
CLOPT 


200  CALL  KG  IN ( CL  DB,  FK ,  DFLCL,  SPEED,  FKL 1 ,  DCLl) 
rr-(  SPEED. LE. FML  1  I  GO  TO  500 

DRAG  POLAR  IS  CALCULATED  BY  LINEAR  INTERPOLATION  BETWEEN  THE 
LIMITS  FML 1  AND  FML2. 

ZNDM  =  12.  *  <  COSI SWPLF )**1.6)  *  I FML 2  -  FMCRO) 

FNDM  *  l./Il.  +  ZNDM  ♦  ZNDM**2) 

RL2  *  RO  *  FNDM 

FKL 2  =  ( I 1.-RL21/CLM2  ♦  RL2/I 3. 14159*AR*E0>  »  *  SREF/SPLAN 


CALL  ADCLIFML2,  DCL2) 


CALL  KG  I N  (  0 . 50 ,  FK,  DELTA,  FML  l,  FKL1,  DCLl) 

FK  =  FKL  1  ♦  ( FKL2-FKL 1 r*I SPEED-FMLl )/l FML2-FMLI ) 

DFI  CL  =  DCLl  ♦  I  DC1.2-DCL1)*<  SPEED-FMLl  )  / 1  F  ML2 -F  ML  1 ) 


500  IFI  KFRINTl 22I.E0.0  )  RETURN 

WPITF(f  '000)  SPFFD,  FMACH,  FK,  OELCL,  PRIMEK,  AKD ,  AKB, 

1  CLDB,  CLM,  SRFF,  SPLAN,  FMCRO,  F MLl ,  FML2 , 

2  RLF,PNLFR, OMFGA ,R,RBAR,RT ,C LD t C ONC L , E . AR , SW PC4 , 

F:P,  DOB,  SWPLF ,  FKL  l ,  DCLl,  FKL2,  DCL2  »RHIN 

,  I  TOC  I  I  ) ,  CBAR(I),  XLFSWII),  YWC I ) ,  I  *  l.NPNLS 
YW( i+NPNLS ) 

1000  FORM  A  T 1 5X ,  *CDL1  DUMP*  /'IX,  7F15.5)  ) 

RFTURN 


R1T3302 
R1T3303 
R1T3304 
R1T3305 
RIT3306 
R1T3307 
R1T330B 
R1T3309 
R1T3310 
R1T3311 
RIT3312 
R1T3313 
R IT  33 14 
R1T3315 
R IT  33  16 
R1T3317 
R1T331B 
R1T3319 
R IT  3320 
R1T3321 
R1T3322 
R1T3323 
R IT  3324 
RIT3325 
R1T3326 
R1T3327 
R1T3328 
R1T  3329 
R IT  3330 
R  IT  33  3 1 
R IT  3332 
R1T3333 
R1T3334 
R IT  33  35 
RIT3336 
R1T3337 
R1T3338 
R1T3339 
R IT  3340 
R1T3341 
R IT  3342 
R IT  3343 
R IT  3344 
R 1 T  3343 
R1T3346 
R1T3347 
R1T  3348 
KIT  3349 
R1T3350 
R  IT  33  5  l 
R1T3352 
) , R1T  3353 
R IT  3354 
R1T3355 
R 1 T  3356 
R IT  335 7 
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END 


RIT3358 


CC  *  00169 


non 


SUBROUTINE  ADCLISPEED,  CLOPT) 

POLAR  AXIS  DISPLACEMENT 

COMMON  /BLKA02/  SREF*  A  1(432) 

r 

COMMON  /BLKGOl/  Gl<46),  CLD,  SEXW,  G2I33),  SPLAN,  G3(20>, 

1  ESWLE,  G4( 97) 

C 

CONCL  *  All  276) 

C 

CLOPT  «  0.0 

IF  ( SPEEO  .GE.  1.01  GO  TO  10 
FOC  «  0.06  *  CLD 

c 

I F  (  CLO. GT. 0.0  »  CLOPT  -  -.001  +16.934*F0C  -216.2697*F0C**2 
1  +I7ai.3562*E0C**3 

I  F  (  CONCL. GT.O.OICLOPT  -  CLOPT  -.0017  +1. 1334*C0NC  L 
1  -l, 8498*CQNCL**2  +1. 0605+C0NCL^*3 

I F (  A1(234).E0.8.  I  CLOPT  ■  0.51951  *  CLD*+0.75 
GO  TO  20 
C 

10  BETAT  »  10. 

I F  (  ESWLE. GT. 0.0  »  BFTAT  *  SOR TI SPEED**2  - l . ) /TANI ESWLE ) 
OELCL  ®  CLD  *  (0.25  -  0.225  *  BETAT  1 
I F I  BETAT.GE.l.ll  )  DELCL  *=  0.0 
CLOPT  -  DELCL 

C 

20  CLOPT  *  CLOPT  *  SPLAN/SREF 
RFTURN 
FND 


R  IT  33  60 
R1T3361 
R1T3362 
RIT3363 
R1T3364 
R IT  3365 
R1T3366 
RIT3367 
R1T336B 
R1T3369 
KIT  33  70 
R1T3371 
R1T3372 
R1T3373 
R1T3374 
R1T3375 
RIT 3376 
R1V3377 
R IT  33 78 
R1T3379 
R1T3380 
R1T3381 
R IT  3382 
KIT  3303 
R1T33B4 
R1T33B5 
R1T3386 
R1T3387 
R IT  3388 
R IT  3389 
R IT  3390 


CC  *  00031 
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o  o  n 


SUBROUTINE  KGIN(CLDB,  AK IN , OFCL IN , S PEED  ,  AKOUT , DCLOUT  ) 

COMPUTES  POLAR  USING  LEAST-SQUARES  CURVE  FIT 

COMMON  /BLKPRT/  KPRINTI50) 

DIMENSION  CL(II)  ,  CDL(II),  SAI122,  RE  (  1 1  I 
C 

DC  L  =  CLDB/  10. 0 

CL  I  II  =  0.  0 
C 

DO  20  I  *  li  11 

IF  (  I.NE.I  I  CUII  =  CLII-II  ♦  DC  L 

CLX  -  CL (  I  ) 

C 

CALL  CDDRIICLX,  SPEEO,  CDR) 

C 

IF  (  I.EQ.I  I  CDRO  *  CDR 

DC DR  =  CDR  -  CDRO 
C 

40  CDLIII  =  AKIN  *  (CLIU  -  0ECLINJ**2  ♦  DCDP 

20  CONTINUE 
C 

CALL  PL  SQ I  CL,  COL,  7,  2,  SA  ,  0,  E  MA  X ,  ERM  S  ,E  ME  Q> 

C 

AKOUT  =  $  A  ( 1 ) 

DC L OUT  =  -  S  A  <  2 1  / <  2.0  *  AKOUT  I 

ERR  *  '  A  (3 )  -  AKOUT  +  0CL0UT**2 

C 

I F (  ABSIERP  I.LT . 0.001. OR. KPR INTI  14) .EQ.O  )  GO  TO  30 
C 

WRITE  (6,10  00)  SPEED  ,ERR  »  AKOUT  ,  DC  LOUT  , 

I  AKIN,  OECLIN,  (  CL ( I ) ,  CDLIII,  I  =  1,7  I 

1000  FORMAT!  1  OX  *KGIN*  5X.+MACH  ** F8 .5 ,2 X *E R R  »*FB. 5 , 2X , 4 F8 . 5 , / 
1  IX, , 4F8.5  ) 

C 

30  RETURN 

END 


R IT 3392 
R1T3393I 
R1T339* 
R IT  339 5 
R1.T3396 
R 1T3397 
RIT3398 
R1T3399 
R IT 3400 
R1T340L 
R 1T3402 
R IT 340 3 
R1T3404 
R IT  3405 
R1T3406 
R 1T3407 
R IT  3408 
R1T3409 
R  1T3410 
R IT  341 1 
RIT3412 
R IT  3413 
R1T3414 
R1T3415 
R  1T3416 
R1T3417 
R  1T3418 
R IT  3419 
R1T3420 
R  IT  3421 
R IT  3422 
R 1T3423 
R1T3424 
R1T3425 
R  1T3426 
R IT  342 7 
R1T3428 


CC  *  00037 


n  m  n  n  o  n  r>  o  on  no  nnooo 


SUBROUTINE  C0L2ISPFE0,  CL,  AEROK,  QELCL ,  PRIMER,  AKD ,  AKB ,  CDL) 

COMPUTES  DRAG  DUE  TO  LIFT 

COMMON  /BLKPRT /  KPRINTI50I 

COMMON  /BLKC01/  Cl(lOO) 

CLPB  -  CL (63) 

CLDB  -  C 1(64) 


20  CONTINUE 

COL  *  AEROK  *  (CL  -  OELCL  1**2 
IF (  CL. LE. CLPB  >  GO  TO  500 

DRAG  DUE  TO  LIFT  ABOVE  POLAR  BREAK 
COL  *  CDL  ♦  PRIMER  *  (CL  -  CLPB)**2 
I F (  CL.LF.CLOB  I  GO  TO  500 

DRAG  DUE  Tfl  LIFT  ABOVE  DRAG  BREAK  (CLDB) 

I F (  SPEED. GE. 1.0  )  GO  TO  410 

CDPCB  -  AEROK  *  (CLDB  -  DELCL)**2  -  AKD  +  CLDB**2 
1  +  PRIMFK  *  (CLDB  -  CLPB>**2 

OCOB  «  AKB  *  (CL  -  CL0B>**2 
DCOB  *  DCOB  ♦  O.Ofl  *  SQRT(DCDB) 


COL 


«  COPOH  ♦  DCOB  ♦  AKD  *  CI++2 


400  I F (  SPEFD.LT .1.0  I  GO  TO  500 
410  CONTINUE 

CDL  *  (AEROK  -  PRIMER)  *  ICLPB  -  DELCL)**2 
l  ♦  PRIMFK  *  (CL  -  DELCL )  **  2 


500  CONTINUE 

I F (  KPRINTI 14) .LE.O 
WRITE (6, 1000)  SPFED 
1  CLDB, 

KPR I  NT ( 14 )  =  KPRINT 
50  CONTINUE 


I  GO  TO  50 

CL,  CDL,  AFROK,  DELCL, 
AKD,  AKB 
14)  -  1 


RETURN 

1000  FORMAT  (10X,  *C0L2  OUMP*/(lX,  7F15.5  )  ) 

FND 


PRIMFK,  CLPB, 


R IT  3430 
R1T3431 
RIT3432 
R1T3433 
R1T34  34 
R IT  3435 
R1T3436 
R1T3437 
R1T343B 
R1T3439 
R1T3440 
R IT  344 1 
R IT  3442 
R  IT  3443 
R IT  3444 
R1T3445 
R IT  3446 
R1T3447 
R1T344B 
R IT  3449 
R IT  3450 
R1T3451 
R IT  345  2 
HIT  3453 
R IT  3454 
RIT3455 
R  IT  3456 
R IT  3457 
RIT3458 
R IT  3459 
R1T3460 
R  IT 346 1 
R1T3462 
R1T3463 
R  IT  3464 
R1T3465 
R1T3466 
R IT  3467 
R IT  3463 
R IT  3469 
R1T3470 
R1T3471 
R 1 T  34  1 2 
K 1 i 3473 
R IT  3474 
R1T34  f 5 
R 1 T  34  fb 


CC.  =  00047 
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SUBROUTINE  APR A( SPEED*  CL,  ALPHA! 

C 

C  CALCULATES  ANGLE  OF  ATTACK 

C 

COMMON  /BLKCOL/  CHiOO) 

C 

COMMON  /BLKGOI/  Gl(44),  DOB,  TOC,  CLD,  SE  XW  ,  SWPMC. 

1  G2( BO  I ,  AR,  TR,  SPLAN,  G3(6),  YIX,  YOX, 

2  SIX,  SOX,  AR I ,  ~4(4),  SWLEI,  G513),  SWPQC, 

3  SWPLF ,  SWPTF,  G6(96) 

r 

COMMON  /BLKA02/  SRFF,  Al<432) 

C 

COMMON  / BLKPRT /  KPR  IN  T( 50 ) 

C 

COMMON  /BLKAOl/  NBOOYS.  NNACS ,  NSURFS,  NHT,  NVT ,  ISWP,  NPNLS 
C 

enMMON  /  BLKT  22/  XIN13I10),  YINL3(7),  Z0UT13I 10,7) ,  ZOLIT  14  ( 10, 7  ) 
COMMON  /BLKMX2/  XSWP18),  YDY(6),  FDA(8,6>,  XAB  ( 6)  ,  YC0(8», 

1  FKVOFMI 6,8),  XANGI10),  YRT0C17),  FRA(10,7) 

COMMON  /8LKMX6/  XXI  12),  XY(7>,  XH12,7) 

C 

DIMENSION  CLTABI 13) ,  ATARI  13) 

EOUIVALENCF  (  CL  A  ~MI7)>,  (AL0,CUI8)I,  (CLAW, Cl  154)  )  , 

1  (CLl  164)),  (CLIMAX,  CLI65)  )  ,  ( AMAX.C  l  (67 »  )  , 

2  (DAMA/.,  .1(68)  ),  ( DEL  ,C l ( 69) ) ,  (  CL  S  ,Cl  (  70 )  )  , 

3  (APL0,Cl(71)>,  (CDL.CK6)) 

C 

SWFFP=SWPLF*57.  29578 
KPRT  *  KPR INT (17) 

CL VM 1  =  0.0 

C 

10  ALPHA  *  CL/CLA  ♦  ALO 

I F (  SPEFD.GT.) .0  )  RETURN 
I F I  NPNLS. GT.l  )  GO  TO  290 
I F (  AR.LF.AKLO  )  GO  TO  100 
C 

20  CONT  INUF 
r 

I F (  KPRT.GT.O  )  WRITFI6, 1000)  CL,  ALPHA,  AR,  ARLO,  CLMAX,  CLS, 

1  DAMA  X ,  CLA,  ALO 

C 

IF!  CL.LF.CLS  }  GO  TO  200 
C 

(,  HIGH  ASPECT  RATIO  LIFT  METHOD  ***  + 

F 

DA  =  0.0 

DCl.  =  CLMAX  -  CLS 

DA  =  ((CL  -  CL  S ) /DCL )**  2  *  DAMAX 

40  AL"HA  =  ALPHA  +  DA 

I F (  CL. LE. CLMAX  )  GO  TO  200 
ALPHA  =  ALPHA  *■  5.0 
I F (  AL  P HA -GT .90.0  )  ALPHA  =  90.0 

(' 

GO  TO  200 
100  CONTINUF 


R1T3478 
R IT  3479 
R1T3480 
R IT  348 1 
RIT3482 
R1T3483 
R IT  3484 
R1T3405 
R IT  3486 
R  IT  348  7 
R IT  3488 
R IT  3489 
R1T3490 
RIT3491 
R1T34V2 
R IT  3493 
KIT  3494 
R IT  3495 
R1T3496 
R  IT  349  7 
RIT349B 
R IT  3499 
R1T3500 
R IT  3501 
R IT  3502 
R1T3503 
R1T3504 
R1T3505 
R1T3506 
R1T3507 
R1T3508 
HIT  3509 
R1T3510 
RIT35JLI 
R1T 3512 
R1T  3513 
R IT  35 14 
R IT  35  15 
R1T3516 
R IT  35 17 
R IT  35 18 
R IT  35 19 
R1T3520 
R1T3521 
R1T3522 
R1T3523 
R1T3524 
R IT  3525 
RIT3526 
R IT  35  27 
R1T3528 
RIT3529 
KIT  35  30 
R1T3531 
R l T  35  32 
RIT3533 
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n  n  n 


LOW  ASPECT  RATIO  LIFT  METHOD  ***** 

AS  -  0.0 

Z  -  2.  *  COS( SWPMC )  /  AR 

HOB  *  (AMAX  -  AS ) / 1 14 . 6  /AR  *  1.5  *  ITR  *TR**2I / ll.*TP*TR**2 
XEP  -  1.0014  -1.969*H0B  *3. 002 1*H0B**2  -2 ,0072*HOB**3 
DCLFP  -  (Z  ♦  SORT!  1.+  Z**2  )  I /(  K£P*Z  ♦  SORT  (  1 .  +  (  XE  P*Z  » **2 )  ) 

DCLPA  *  ( OCLEP  -1.1  *  CLAW  *  57.3 
CLP A  -  CLA  *  57.3 

OCLO  -  -  CLA  *  ALU 

CLVMl  *  CLMAX  -  CLPA  *  S IN l AMAX/ 57. 3 1  *  COSI AMAX/57. 3) **2  -OCLO 
CLVM2  -  CLVMl  DCLPA  *  SI  N(  AMAX/ 5  7. 3)  *  COSI  A  MAX/57. 3)*  *2 
I F (  CLVMl. LF. 0.0  »  OAMAX  -  AMAX  -  CLMAX/CLA  -  ALO 
I F (  CLVMl. LF. 0.0  )  CL  S  «  CLA  *  UMAX  -  2.*0AMAX  -  ALQ  > 

I F (  CLVMl. LF. 0.0  I  GO  TO  20 

CO  *  T AN  I SWPTE 1 /TANI SWPLF ) 

BETA  =  SORT ( 1 .  -  SPEED**?! 

ABETA  -  4.0/TANI SWPLE )  /Il.-CO)  *  BETA 

TOCR  *  TOC 


Alt  2341. FQ. 9 


110  CLVOFM  - 
TS2 
FM 

CI  V  A 

ATABI  II* 
DO  120  I 
IFl  I.GT, 
AMG 
DC.LP 


DLNT (ABETA ,  CO,  XAB ,  YCO 
T  AN ( SM  PL  E 1 **  2 
SORT I ( l.  ♦  TS2 ) / ( BE  T A**2 
CLVOFM  *  FM  *  SEXW/SREF 

0.0 

-  1,  13 

.  I  )  AT AB (  I >  *  ATARI  1-1! 
ATABI II*  0.01745 
0.0 


VCO,  FKVOFH,  6,8,6,2,21 


TS2  )  I 


ATABI  I  )  .LE.AS 


TIP  VORTEX  FFFECT 


GO  TO 


HOB  =  I  ATABI  I  I  -AS  1/114.6  /AR  *1.5  *ITR*-TR*TR)/I  l.+T  R*TR*T  R  I 
XPP  =  1.0014  - l . 9694H08  *3. 002 l*H0B**2  -2 ,0072*H0B**3 
IF!  HOB. LE. 0.0  »  XFP  =  1.0 

DCLFP  -  17  +S0RTI l.+Z*Z ) )/I XFP*Z  ♦  SORT (l.*  (XEP*Z)**2>> 

DCLPA  -  10CIFP  -l.)  *  CLAW  *  57.3 
DCIP  =  DCLPA  *  SINIANG) 

115  FONT  INUF 

LEADING  FDGF  EFFECT  IPA) 


VORTFX  BREAKDOWN  EFFECT  IFVL) 

X  =  AR 

FVL  -  0.0 

I F (  X.LT.3.37  )  FVL  =  DLNTIX.ANG,  XX,  XY,  XF ,  12,  7,  12,  4,2! 


CLV  =  U.-RA!  *  FVL  *  CLVA  *  SINlANGI*  +  2  *  COSlANGl 
IFl  CLV.GT.CIVM2  I  CLV  =«  CLVM2 
CLP  -  CLPA  *  SINIANG!  *  C0SIANG1++2 
CLTARII!  =  DCLO  ♦  CLV  ♦  CLP  ♦  DCLP 
I  F I  KPRINT 1 17! ,F0. 2. AND. I .FQ. I  !  WR I TE l  6 , 1002 ! 


R  IT  35  34 
R1T3535 
R IT  35 36 
KIT  3537 
1 R1T3538 
R1T3539 
R1T3540 
R1T3541 
R IT  3542 
R1T3543 
KIT  3544 
R1T3545 
R IT  3546 
RIT3547 
R IT  3548 
R IT  3549 
R IT  3550 
R1T3551 
R1T3552 
R1T3553 
PIT  3554 
R1T  3555 
R IT  3556 
R1T3557 
R1T355B 
RIT3559 
RIT3560 
R1T3561 
R1T3562 
R1T3563 
R IT  3564 
R IT  3565 
R1T3566 
R1T3567 
R  IT  35  68 
R1T3569 
R1T3570 
R1T3571 
R  IT  35  72 
R1T  35  73 
RIT3574 
K1T3575 
R1T3576 
R1T3577 
R1T3578 
R IT  35  79 
R1T35B0 
R1T3581 
RIT3582 
RIT3583 
R IT  3534 
KIT  3585 
R1T3586 
R1T3587 
HIT  3508 
RIT3589 


167 


I  F  (  Kt’RINT  (  17J.EQ.2  t  WR I TF 1 6, 1001 )  CLTAB(I),  ATABi l )  ,  RA. 

1  CLP,  CLV,  OCLP 

C 

120  CONTINUE 
C 

IFI  KPRT.GT.O  )  WRITE  16, 1003)  CL,  ALPHA,  AR,  ARLO,  l,  HOB,  OCLPA, 

1  CLPA,  DCLO,  CLVM1,  CLVM2,  TOCR,  CLVA,  RA,  FVL* 

2  ANG 

C 

125  I F (  CLVMI.LF.0.0  )  GO  TO  20 

130  CALL  LNTPICL,  ALPHA,  CLTAB,  ATAB,  13,  4) 

r 

GO  TO  200 

c 

C  CALCULATES  ANGLE  OF  ATTACK  AT  HIGH  LIFT  BY  MODIFIED 

C  WINSTAN  METHOD. 

C 

r. 

290  CONTINUE 

300  BETA  =  SORT (  1 .  -  SPEED**2I 
BETAN  =  BETA  *  TAN(SWIEI) 

A  =•  DLNTIBETAN, SWEEP,  XI  N 1 3 , Y I Nl 3 , ZOUT 1 3  ,  10,7,10,  2,21 

EN  =  DLNTIBETAN, SWEEP,  X I N 13 , V I Nl 3 , Z0UT14  ,  10,7,10,  2,2) 

r. 
r 

ACLARU  =  CLDB/CLA  ♦  ALO 
EBRK  =  Y I X  /  (  Y IX  ♦  YOX) 

CL  B  “  A  *  ACLARU**FN  *  EBRK/ARI  *  CLAW  *  57.29578 
310  I F (  CL.LE.CLOB  I  GO  TO  200 
CLT  *  CL  B  ♦  CL  -  CLDB 

ALPHA  *  I  Cl  T  *  ARl/U  *  CLAW  *  57.29578  *  EBRK) )  **I  l  .7  EN  I 

C 

I F  C  KPRT.GT.O  )  WR I TE 1 6 , 1004 )  CL,  ALPHA,  AR ,  A,  EN,  ACLARU, 

1  EBRK,  CLB ,  CLDB,  CLAW 

C 

200  CONTINUE 

IF!  ALPHA.LT. 6.0  )  GO  TO  205 
CDL  A  *  CL  *  TANI ALPHA/57.296) 

IF!  CDLA.LT.COL  )  CDL  *  CDL A 
205  RETURN 
C 

1000  F0RMATI5X,  * AFR A  DUMP  HIGH  ASPECT  RATIO*  /(1X.7F15.5)  ) 

1003  FOR  i  AT  (  5X »  *  AER  A  DUMP  LOW  ASPECT  RATIO*  /UX,7F15.5)  ) 

1004  FORM  AT  1 5X,  *AER A  DUMP  CRANKED  WING*  /tlX,7F15.5>  ) 

1001  F0KMATI5X,*V0RTEX  LIFT*,  6F15.5) 

1002  FORMAT ( / / / 5X , * VOR TE X  LIFT*,  8X, *C L* , 12X , *AL PHA* , 1 3X , *R*  ,  13X, 

i  i  i  *.*n  u*.  ii  v.  *nn  p*.  /  i 

ENTRY  AFRA1 

400  KPRT  *  KPRINTI17)  -  1 
ALPHA  =  CL/CL A  *  ALO 
I F (  SPEED. GT. 1.0  )  RF TURN 
IF(  NPNLS.GT.l  )  GO  TO  3)0 

I  F (  AR. LE. ARLO. AND. FIVMl.GT. 0.0  )  GO  TO  125 
GO  TO  20 
C 

(  ND 


R1T3590 
R1T3591 
RIT3592 
R1T3593 
KIT  3594 
R1T3595 
R1T3596 
R IT  3597 
R1T3598 
R1T3599 
R1T36Q0 
R1T3601 
R1T3602 
R1T3603 
R1T3604 
R IT  3605 
KIT  3606 
R1T3607 
KIT  3608 
R  IT  3609 
K1T3610 
R IT  361 1 
KIT  36 12 
R1T3613 
R IT  36 14 
KIT  36 15 
R1T3616 
R IT  361 7 
R1T3618 
R1T3619 
R  IT  3620 
H1T3621 
R IT  3622 
RIT3623 
KIT  36 24 
RIT3625 
R1T3626 
R1T3627 
KIT  3628 
R1T3629 
R1T3630 
R  IT  36  3 1 
R IT  3632 
R IT  3633 
R1T3634 
R IT  3635 
R.  1 T  36  3  6 
R1T3637 
R1T3638 
R1T3639 
R  IT  3640 
R IT  364 1 
KIT  3642. 
R IT  364 3 
R IT  3644 
R  IT  3645 
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CC  *  00168 


SUBROUTINE  AFTCDI ALPHA*  COAFTI 

R1T3647 

c 

R  IT  3648 

c 

CCMPUTE 

ORAG  INCREMENT  OUE  TO  FUSELAGE  UPSWEEP 

R IT  3649 

c 

R1T3650 

COMMON 

/BLKA02/  A  I ( 433 ) 

RIT3651 

r 

R IT  3652 

0 I MCNS ION 

X( 6) »  Y<4),  Z ( 6  f  4  ) 

RIT3653 

c 

R1T36  54 

DATA  X 

/  -5.  *  0.,  5.,  10.,  15 . ,  20.  /, 

R IT  3655 

1  Y 

/  0.,  5.,  10.,  15.  /, 

R  IT  36  56 

2  l 

/  2*0.0,  .01,  .045,  .125,  .28,  0. , . 0005 , . 0 13 , .054 , . 142 , 

R IT 36 57 

3 

.  33,  0.,. 004, .01  75, .065, .172  , .41,  0. , . 014 , .023 , 

R IT  3658 

4 

.085,  .215,  .53  / 

RIT3659 

c 

R  IT  36  60 

WINC 

= 

Al( 280) 

KIT  36 61 

BFUS 

= 

A 1( 241 ) 

R IT  3662 

AB 

Al( 243) 

R1T3663 

I F (  AB. 

EQ 

.0.0  t  AB  =  1.0 

R1T36  64 

BAMX 

s 

Al( 65) 

R1T3665 

SRFF 

■m 

AH  1) 

KIT  3666 

r. 

R1T3667 

COAFT 

» 

0.0 

R1T3668 

I F (  BFUS. 

EQ.0.0  )  RETURN 

R1V 3669 

AFUS 

s 

ALPHA  -  WINC 

R IT  36  70 

BMA 

JB 

BFUS  -  AFUS 

R1T3671 

c 

R1T3672 

DCD 

= 

DLNTIBMA,  AFUS,  X.Y.Z,  6,4,6,  4,2) 

R  IT  36  73 

C  DAFT 

X 

OCD  *  BAM X/SRFF  *  AB/1.5 

R 1 T  36  74 

c 

KIT  3675 

RFTliRN 

R1T3676 

FNO 

R1T3677 

CC  -  00031 
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o  on 


SUBROUTINE  TDRGUTRIM,  SPEED,  OCLT,  DCCT  ) 

COMPUTES  EFFECT  OF  TRIM 

COMMON  /  BLK A02/  A3I  280),  XLEII1I,  A4(142) 

C 

COMMON  /BLK A  03 /  11(10),  XCG  ,  ZCG,  CMAC,  A2(7) 

C 

COMMON  /BLKGOl /  G1I82),  CB,  YB,  XB,  CRX,  G2I22),  XH,  OMEGA, 

1  G  3 (  90) 

C 

COMMON  /8LKC0I /  CL , CD , CM, ALPHA , Cl (6 ) , DH , F  K , OELCL, CMO, DCMCL , X ACM B, 

1  C  2  (  39 ) ,  CLAT,  AH,  BH,  HSTAR,  OH,  ABREAK,  CLDH  , 

2  CLPB,  CLDB,  CLMAX,  C3I22),  XACS,  C4(12) 

C 

OCLT  =  0.0 
OCOT  =  0.0 

c 

CG  OCR  =  ( X  CG  -  XL  F ( 1  ) !/ CRX 
XAC  =  XACWB 

IF  t  CL. GT. CLDB  I  XAC  =  XACWB  <  {XACS  -  XACWB)  *  (  (CL-CLDB) / 

1  (CL  MAX- CL DB) >  *+2 

I F (  Cl  .CiT. CLMAX  )  XAC  =  XACS 
IF (  SPEED. GE.l.O  J  XAC  =  XACWB 
DCMCL  *  (CGOCR  -  XACWB)  +  CRX/CMAC 
IF  (  IT«  IM.EQ.  1  )  OH  =  0.  0 
C 

CLTAIL  =  CLAT  *  {ALPHA  -  HSTAR)  *  CLDH  *  CH 
CLWB  *  CL  -  CLTAIL 

XLT  =  XH  *C  OS  (OMEGA  -  ALPHA/57.3)  /CMAC 
C 

CM  =  CMO  >  (CGOCR  -  XAC)  *CRX/CMAC  *  CLWB  -  CLTAIL  *  XLT 

I F (  CLOH.FQ.O.O.OR.XLT.EQ.O.O  )  GO  TC  60 
I F {  ITRIM.EO.l  )  DH  *  CM  /(CLDH  *  XLT) 

IF  (  (TRIM. EG. I  )  CM  =  0.0 
C 

60  CONTINUE 

r 

I F (  OH.EQ.O.O  )  GO  TO  100 
OCLT  =  DH*CL  OH 

C 

OCDT  =  AH  *DH  **2  t  BH*DH*(  ALPHA  -HSTAR) 

IF  >  ALPHA.  GT  .  ABREAK  )  OCDT  =  DCDT  «■  CH*DH*( AL  PHA-ABRE  AK  ) 

C 

100  RETURN 


R  IT  36  79 
R IT  3680 
R  IT368I 
R IT  368  2 
RIT3683 
R  1 T  3684 
R  IT  3685 
R 1 T  3686 
R IT  368  7 
M  1 T  3t>B8 
R 1 T36B9 
R  1 T  3690 
RIT3691 
R IT  3692 
BIT  369 3 
K I T3  694 
R IT  3695 
R1T3696 
R 1T3697 
R IT  369 U 
R1T3699 
R  IT  3700 
R1T  3701 
R1T3702 
R IT  3  703 
R IT  3704 
R 1T3  705 
R  l  T  3  706 
R1T3707 
R  IT 3708 
R IT  3  709 
R1T3  710 
R  1T3711 
R1T3712 
R  IT3713 
P  l T  3  7  14 
R1T3715 
K 1T3716 
P  IT  3  7 1 7 
R  1T3  71  8 
R  IT  3719 
R  IT  3720 
R  IT  3  72  l 

n  I  t  I  7  i  O 
A  I  J  ICC 

K 1 T  3  72  3 


END 


R  IT  3  724 


CC  =  00046 
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n  n  n  o  n  n  non  no  nonon 


SUBROUTINE  DM  IN ( SPEED •  RNCF  T  *  CDMIN) 
MINIMUM  DRAG 
COMMON  /BLKA01/ 

COMMON  /BLKA02/ 

COMMON  /8LKC01/ 

1 


CDFUS  <  5 )  =  0.0 
COBODC5)  *  0.0 

EM  I  SC  =  42(1281 

CALL  FDRGISPEEO,  RNOFTI 

COMISC  *  (TCD(l)  ♦  TCD( 2 1  ♦  TCD(3))  *  FMISC  *  0.01 
CALL  ADJUST ( 2t  0<  SPEED,  COMISC) 

00  20  I  *  1,  NBODVS 

CALL  BDRGISPEED,  BASE(l),  SREF,  COB ) 

Ir(  I.FG.l  )  COFU S( 5 )  *  CUB 
IF (  I.GT.l  )  COBOOI 5)  *  C0B0D(5I  *  COB 
20  CONTTNUF 

TCD( 5 )  =  CDFUS ( 5 )  ♦  CDB00(5I 
CALL  WDRGI SPEED) 

COM  IN  =  TCD(l)  ♦  TCD  ( 2 )  ♦  1C0C3)  ♦  TCD(4)  «■  TCDI5I 
COM  IN  *  COM  IN  COMISC 


30  RETURN 
END 


NBODVS,  NNACS ,  NSURFS,  NHT ,  NVT ,  ISWP,  NPNLS 

SREF,  A  1 ( 10  3),  BASE ( 1 0) ,  A2I319) 

C 1 J  18  ) ,  TCD(S),  CDFUS15),  CDBOO ( 5 ) ,  C2C59), 
COMISC,  C 3*  7 ) 


RIT3726 
R1T3727 
R1T3728 
RiT  3729 
R  IT  37  30 
RIT3731 
R1T3732 
RIT  37  33 
R1T3734 
RIT  37  35 
RIT 37 36 
RIT  37  3/ 
RIT  37  38 
RIT  37  39 
RIT  3740 
RIT  3741 
RIT  3742 
RIT  3743 
R IT  3744 
R  IT  37  45 
R IT  3746 
R1T3747 
RIT  3740 
RIT 37 49 
RIT  3750 
RIT  375 1 
RIT  3752 
KIT  3753 
RIT  3754 
RIT  3755 
RIT 3756 
RIT  375  7 
RIT  375B 
HIT  375  9 
RIT 3760 
H1T3761 
RIT 3762 
RIT  3763 


CC  *  00038 


1.71 


SUBROUTINE  FDKGI SPEED,  RNOF T i 


SUBROUTINE  CALCULATES  FRICTION*  FORM, 


INTERFERENCE 
•*  I SMP  <  NPNLS 


COMMON  /BI.KAOl/  NDODVS,  NNACS  •  NSURF'i,  Nt  T,  NVT  *  ISMP*  NPNLS 
COMMON  /BLKA02/  SREF,  AR,  TAPR,  SWPLE * 

1  BLENI  101  *  BWIDiiOl,  BHGTdOt,  BAWETUO),  BOdOi, 

2  BNOCIO),  8AMXI10),  BABS d 01  *  BLNSdOl  .  BLBTdO), 

3  BASE!  LOt ,  ELENdOj',  EUIDdOI.  EHGTI10I, 

4  E  ALiFT  (  10  I  *  EAMXI10),  EINdOl*  EXITdOI*  EL  NS  (101* 

5  ELBT(IO),  EOF  (  1 01  *  ENOUOI  ,  CBARdOI.  TVI, 

5  XI  £  Ur  YWW  *  YB  .  CR*  BQ2  ,  BF»JS,  FMISC.  AB  p  AFTAM. 

6  CAM  10),  TOCi  10)  *  AHET(IO),  SWMT,  SPLAN,  CCNCL, 

7  TWIST*  FTWIST,  WINC,  XLEdl),  CRWdl),  YW  dll  * 

8  XPIVOT,  YPIVOT,  XAPEX,  AFTSW,  AFTCB,  AFTOC* 

9  SBARdOl,  TS(  10)  *  SCAN!  10)  ,  STOCdO).  SAWETdO). 

1  SMTSWI  101  *  SHF  (  10 )  .  SWL(IO)*  SWTdO),  STAPRI 101  * 

2  SCR  I  10),  HTLF.  HTY,  HTZ ,  HTINC 

COMMON  'BLKCOI/  Ci(19),  TC0I5)  CDFUS15),  CDB0015),  CONAC (4) • 
i  CDWING14S,  COh  14).  CDVTI4) *  CDSURF (41*  C2I47) 

COMMON  /ELK0V3'  0V3AI7),  Jt  0V3BI4) 


COMMON  /BLKSUR/ 


SLRI162I,  YPB I  5 » 10) *  TFNI5.10),  TRUI5.10), 
TRLI5.I0),  TRSI5.101 


COMMON  /BLKG01/  FRBOOdO),  GUIO)*  FRNAC(iO),  G2I73I, 

L  SWPMT,  CBAR2,  CLOS,  TOCS*  SUET*  G3I82) 


f.RITMl 

XTR 


C2<  19) 
0-0 


DO  10  1*1,3 
T CD (  I )  *  0.0 

CDFUSII)  *  0.0 
CCBODUI  =  0.0 
CDN  AC ( I  I  *  0.0 
CCW INGI I ) =  0.0 
CDHT(I)  -  O.L 
CDVTI  I)  =  0.0 
CO "UP FI  I  )*  0.0 
10  CONTINUE 

Briny  CONTRIBUTIONS 
IF  (N80DYS.E0.0)  GO  TO  30 
Of  20  I  =l,NBnOYS 

I F  (  J.GT.O  )  XTR  =  YRBI  .1  *  1 1  *  BLENd) 

CALL  CFEQIRNOFT.SPFEO, BLENI I ) , XTR, CDF  I 
CALL  FF  ACT { 1 ,  FRBOOI I  I  *  0,  0,  SPEED,  0.0,  FFI 
DRAG  =  CDF*BAWET( II/SREF 
lr  II.ro.ll  GO  TO  25 
F  3  =  BO (I ) 

IF!  SPEED. GT. 1.0  )  FI  =■  1 . 

CCBODUI  ^  CDBOOIi)  :  Df  AG 
CDBODIii  =  CDB0DI2)  +  DRAG* IFF  -1.) 

CDRODl 3 )  =  C0B00I3I  ♦  ORAG*FF*(FI  -  l.I 


R1T3765 
R1T3766 
R1T3767 
RIT 3768 
R IT  3769 
R1T37  70 
R1T3/7I 
R IT  3772 
R IT  3773 
R  IT  37  74 
R IT  3775 
R IT  3776 
R IT  3777 
RIT  3778 
R IT  3779 
RIT  3780 
RIT  3781 
RIT  3782 
RIT  378  3 
R1T3784 
RIT  3765 
RIT  3786 
RIT3787 
R IT  3788 
RIT 3789 
R1T3790 
RIT  3791 
RIT 3792 
RIT  3793 
RIT  3794 
HIT  3795 
RIT 3/96 
RIT  3797 
RIT  3798 
RiT  3799 
R1T3800 
RIT 3801 
HIT  3802 
RIT  3803 
R1T3804 
RIT  3805 
RIT  3806 
RIT  3807 
RiT  3808 
RIT  3009 
HIT  38 10 
RIT  38 1 1 
RIT 38 12 
RIT  38 1 3 
RIT  38  14 
RIT  38 15 
R1T3816 
R1T3817 
RIT 38 18 
R1T3619 
R1T  3820 


GO  TO  20 

25  Rt’FUS  *  RN0FT*8l.EN(  1 I 

CALL  I  FACT (lf  REFUS,  CRITM,  SPEED,  FI) 

COFUSdl  *  DRAG 
CDFUS ( 2 )  *  DRAG* IFF  -1.1 
CDFUSF3J  -  DRAG*(FF)*(FI  -1.1 
? 0  CONTINUE 

NACELLE  CONTRIBUTIONS 
30  IF  (NNACS.EO.Oi  GO  TO  40 
DO  35  I  »l» NNACS 

IF(  J.GT.O  )  XTR  «  TRNIJ.I)  *  ELEN(I) 

CALL  CFEQCRNOFT, SPEED, ELENI I  1 , XTR  ,CDF I 
CALL  FFACT ( 2,  FRNACU),  0,  0,  SPEED.  0.0,  FF) 

DRAG  *  C OF* E A WET I  1 1 /S REF 

FI  *  EOF (II 

IF  I  SPEED. GT.l.  )  FI  «  1. 

CPNAC(l)  »  CDNACU)  *  DRAG 

CDNAC ( 2  I  *  CDNACI2)  ♦  DRAG*I FF  -1.1 

CON AC ( 3 )  -  CDNACI 3  I  *  ORAG*FF*I F 1-1 . I 

35  CONTINUE 

WING  CONTRIBUTION 
40  IF  (NPNLS.EO.0I  GO  TO  50 
DP  45  I  »  1,  NPNLS 

I F I  J.GT.O  I  XTR  *  TRUtJ.II  *  C8ARI I ) 

CALL  CFEOCRNOFT, SPEED,  CBAR (II,  XTR,  CDFUI 
IF  I  J.GT.O  I  XTR  «  TPLCJ.I)  *  CBARIII 
CALL  CFEOCRNOFT, SPEED,  CBAR (II,  XTR,  CDFL) 

CDF  »  0.5  *  ( CDFU  ♦  CDFL I 

CALI  FF  ACT  5  3,  TOCIII,  TW,  CAHII),  SPEED,  CRITM,  FF I 
IF  I  I.FO.l  I  CALL  I  FACT ( 2,  SWMT,  CRITM,  SPEED,  Fit 
DRAG  *  CDF*AWETf I  1/SREF 

I F  (  ISWP.Ci'  . 0.  AND .  I  .EQ.NPNL  S  I  CALL  CFE  01  RNOFT  ,  SPEED, CBAR2  , 
1  0.0, CDF) 

IF!  ISmP.GT.O.AND.I.EO.NPNL S  I  CALL  FF ACT  1 3 , TOC S, Tb.CLOS , 
l  SPEED, CR  ITW,FF| 

|F(  ISwP.GT .0  )  CALL  IF  AC  T( 2 ,  SWPMT,  CRITM,  SPEED,  FI) 

I F (  ISWP.GT .0. AND. I.EO.NPNLS  )  DRAG  -  CDF  *  SWE T  /  SREF 

CDWING(l)-  COWING! i:  *  DRAG 

CDW  !N‘«!  21=  COWING!  2  i  *  ORAG*!Fr-i.) 

COWING! 3)  =  CDW ING! 3 )  *  DRACv FF* ( F I -I . ) 

45  CONTINUE 

SURF  AC  F  CON  TR  I  BUT  IOt" 

50  IF  (N5URFS.CQ.1I  GO  > .  6C 
NSURF1  *  NSURFS  -  l 
DO  55  I  =  l,  NSURFI 

1F(  J.GT.O  )  XTR  «  TR  S( J , I  I  *  SBAR(I) 

CALL  CFEO(RNOFT,  SPEED,  S8AR (II,  XT?,  CDF) 

CALL  FFACT(  3,  STQC(I),  TSId,  SCAMd  )  ,  SPECD,  0.0,  FF) 

CALI  I  FACT ( 3,  SMTSW(I),  CRITM,  SPEED,  FI) 

I F (  SPFFO.LE .  1.  I  FI  «  FI  *  SHFCI) 


RIT3821 
R1T3822 
R1T3823 
RLT3824 
R1T3825 
R1T3826 
RIT  3827 
R1T3828 
RIT  3829 
RIT 38 30 
RIT  38  31 
RIT  3832 
RIT  3833 
R1T3B34 
RIT  38  35 
R1T3836 
RIT  38  37 
RIT 38 38 
RIT  38  39 
RIT 3840 
RIT  3841 
RIT  3842 
RIT 3843 
RIT 3844 
RIT  3845 
RIT  3846 
R  IT  38  4  7 
RIT  3848 
RIT 3849 
RIT 3850 
RIT 3851 
RIT 3852 
RIT  3853 
R IT  3854 
RIT 3855 
R1T3856 
R1T385J 
RIT  3058 
RIT 3859 
RIT 3860 
RIT  3861 
R1T3862 
RIT  3863 
RIT  3864 
RIT  3865 
RIT 3866 
RIT  3867 
RIT 3868 
RIT  3869 
RIT  3870 
R1T3871 
RIT3872 
R1T3873 
RIT  3874 
RIT3875 
RIT 38  76 


173 


201 


260 


270 


100 


101 


102 


55 

60 


0°  AG  *  COF* SAME  T{ 1 1  /SREF 
IF  (  I.  EO.  1 .AND*  NHT.GT.O)  GO  TO  100 
I  NHT.EO.O  )  GO  TO  260 
l  I .EQ.2. ANO.NVT.GT.OI  GO  TO  101 
(NVT.EQ.O)  GO  TO  270 
I  I.GT.2  t  GO  TO  102 
TO  55 

I  I.FQ.l.ANO.NVT.GT.OI 

<  NVT.EQ.O  1  GO  TO  102 

<  I.GT.l  >  GO  TO  102 
TO  55 

■  DP  AG 

'  DRA^MFF-l.J 
!  ORAG*FF«|F!  - 


200  IF 
IF 
IF 
IF 
GO 
IF 
IF 
IF 
GO 

COHT ( 1 )  » 

C0HTC2J  - 
COHT (31  - 
GO  TO  200 
COVTCU  - 
COVT (21  « 

COVT (31  • 

G°  TO  201 
CDSURFI 1» 

COSUPF ( 2) 

COSUPF (3| 

GO  TO  55 
CONTINUE 
CONTINUE 
DO  70  I  -  1,3 
TCD( I )  «  COFUSI  1 1 
1  ♦CDHTII) 

70  CONTINUE 
RETURN 
ENG 


GO  TO  101 


DRAG 

DRAG* I FF—  J .  ) 
DRAG*FF*(FI 

*  CDSURFI 1 )  ♦ 
«  COSURF ( 2)  ♦ 
-  CDSURFI 3)  ♦ 


1.1 


-  1.) 


DRAG 

DRAG* ( FF— l.| 
0RAG*FF*|F1  - 


1.) 


*■  COBOD (  I  )  ♦  CDNAC(I)  ♦CDWING<  I) 
♦  COVT 1 1 }  *  CDSURFII ) 


RIT3877 

R1T38  78 

RIT3879 

R1T3880 

R1T3681 

R1T3882 

R1T38S3 

R1T3884 

R1T3885 

R1T3886 

R1T3887 

R IT  3888 

R1T3889 

R1T3890 

R1T3891 

R1T3892 

R1T389J 

R1T3894 

R1T3895 

R1T3896 

R1TJ897 

R1T3898 

R1T3899 

R1T3900 

R1T3901 

R1T3902 

R1T3903 

R IT 3904 

R1T3905 

R1T3906 

R1T3907 


CC  »  00143 


o  n  r>  n 


SUBROUTINE  CFEC (RNOFT ,ZMACH ,CBAR, XTR ,CF ) 

THIS  SUBROUTINE  CALCULATES  THE  SKIN  FRICTION  COEFFICIENT 
USING  THE  WHITE -CHR ISTOPH  TECHNIQUE. 

COMNON  /BLKPR1/  KPRINT150) 

CPHNON  /BLKA03/  ROUGHK,  All  19) 

C 

FTURB(X)  -  T *F* *2*0.4 30/ (AL0G10(RNL*X*T**1.67*F) ) **2.56 
C 

FLAMIV)  «  1.328*CFCF IL/SQRTI Y*RNL) 

C 

FPRIH(X)  *  0.43*T*F*F*((AL0G10(RNL  *X*T**l .67*F) ) **< -2.56) 

1  - 1 . 1 1 1 78* l ALOG I0( RNL  *X*T**1 . 67*F ) I **I -3. 56 ) ) 

r 

I F I  KPR1NTI 19).GT.0  I  WR ITE (6*1001 )  RNOFT, ZHACH ,CLAR, XTR, ROUGHK 
IF(  CBAR.LE .O.O.OR.CBAR. GT . 10000. )  GO  TO  500 

C 

ZNACH2  «  ZHACH*  ZH  AC  H 
T  -1.0/1 1.0*  0.178*ZMACH2) 

F  -1.0  ♦  0.03916*ZHACH2*T 
0XNP1  -  0.0 
RNCO  -  0.0 
RNL  -  RNOFT 
IF(  ROUGHK. LE. 0.0  )  GO  TO  5 
C 

RNL  *  RNOFT  *  C0AR 

AK1-  37.587  ♦  4.615*2MACH*2.949*ZMACH2*4.132*ZHACH*ZMACH2 
RNCO  -  AK1*ICBAR*12. /ROUGHK)**!. 0489 
IF  IRNL.GT.RNCO)  RNL  -  RNCO 
RNL  -  RNL/CBAR 

5  CONTINUE 
C 

CFCFIL  -  II. 0*  0. 12  56*Z HACH2 )**(-. 121 
IF  IXTR.LE.O.O)  GO  TO  100 
OXN  *  0.1  *  XTR 
C 

10  OP  -  FPRIMIOXN) 

IF  (DP.EQ.Q.OI  GO  TO  200 

0XNP1  -  OXN  -  (OXN  *  FTUR8I0XN)  -  XTR  *  FLAH(XTR) )/0P 
IF  I  OXNPl.LE.O.O)  OXNPl  -  0.5  *  DXN 
DX  -  ABSIOXNPl  -  OXN) 

ny  -  0.000l*CBAR 

IF  ( OX.LE.OV )  GO  TP  20 
OXN  *  OXNPl 

GO  TO  10 
C 

20  XP  -  OXNPl  ♦  C0AR  -  XTR 

CF  =  I XP/CBAR l*FTURB( XP ) 

GO  TP  300 

r 

100  CF  *  FTURBfCBAR ) 

GO  TO  300 

r 

200  WRITE  (6,1000)  DXN,  RNL 
CF  =  0.0 


R1T3909 

R1T3910 

R  IT  39 1 1 

R IT  39 12 

RIT3913 

R1T3914 

R1T3915 

R1T3916 

R1T3917 

R1T391B 

R1T3919 

R1T3920 

R1T3921 

R1T3922 

R  IT  3923 

R IT  3924 

R1T3925 

R1T3926 

R1T3927 

R1T3928 

R IT  3929 

R1T3930 

R  IT  39  31 

RIT3932 

R IT  39 33 

R IT  3934 

R1T3935 

R  IT  39  36 

RIT3937 

R1T3938 

R  IT  39  39 

R IT  3940 

R1T3941 

R1T3942 

R1T3943 

R1T  3944 

R IT  3945 

R1T394G 

R1T39  4  7 

R1T39  4  8 

R IT  3949 

R1T3950 

PIT  3951 

R1T3952 

R|T  3953 

R1T3954 

R1T3955 

R1T3956 

R IT  395 7 

RIT3958 

R1T3959 

R1T3960 

R1T3961 

R IT  3962 

R IT  3963 

R  IT  39  64 
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300  CFBAR  -  FTURBl CBAR >  R1T3965 

IF  (  KPRINT ( 19) .EQ.O)  GO  TO  400  R1T3966 

WRITE<6, 10031  CF,  CFBAR ,  0XNP1,  CFCFIL,  RNL ,  RNCO  RIT3967 

C  R1T3968 

400  RETURN  R1T3969 

500  CF  ■  0.0  RIT 3970 

UR ITE ( 6, 1002 )  CBAR  R1T3971 

RETURN  RIT  3972 

C  RIT  3973 

1000  FORMAT  i  10X* SU8R0UT INE  CFEQ  UILL  NOT  CONVERGE*/  IX.3F15.7  »  R1T3974 

1001  FORMAT (10X,*CFEQ  INPUT*,  1PE 1 5. 4, 0P4F l 5. 7  >  R1T3975 

1002  FORMAT ( 10X, *CBAR  ■* , 1PE 1 4. 5 , 2X, *OUT  OF  RANGE  IN  CFEQ,  CF  SET  EQUALR1T 39 76 

1  TO  ZERO*  //  t  RIT 3977 

1003  FORMAT! 10X,*CFEQ  OUTPUT*,  4F15.7,  1P2E15.4  )  R1T397B 

FNO  RIT  39  79 

CC  *  00071 
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rt  n  o 


r 


x 


SUBROUTINE  FFACTC  ID»GEOM,  T  YP  ,CI.D  >  SPEED  *CRI  TM  ,FF  I 


THIS  SUBROUTINE  CALCULATES  FORM  FACTORS  FOR  EACH  COMPONENT. 


C 

C 

C 


C 

C 


r 

C 


c 


ITYP  .  TYP 
FF  *  1.0 

IF  (SPEED. GT. 1.01  GO  TO  40 

GO  TO  (10,20,30)  ID 

FUSELAGE  OR  BODIES  (ID-1) 

10  FR  *  GEOM 

FF  *  1.0  +  60./FR**3.C  ♦  0.00254FR 
GO  TO  40 

NACELLE  ( I  0*  2 ) 

20  FR  *  GEOM 

FF  *  1.0  ♦  0.35/FR 
GO  TO  40 


IF 

IF 

l 

FF 


WING  AND  SURFACES  IID»3J 
30  TOC  -  GEOM 
T0C2-  TOC+TOC 

IF  (1TYP.LE.  Y|  FF  *  1.0  ♦  1.44*T0C 
IF  (ITYP.EQ.  9)  ff  *  1.0  ♦  1.2  *TOC 

if  (rryp.GE.  io.ano.  ityp.le.20)  ff 

if  (ITYP.NE.  8)  GO  TO  40 
OELTAM  a  SPFED  -  CRITN 
IF  ( DEL  TAM . GE • 0.0  I  IK  •  0.202 
(OELTAM. LE.- .2)  IK  -  0.12 
(DELTAM.GT.-. 2.AN0.0ELTAM.LT. 0.0)  IK 
*■2-  1944* DEL  TAM**2  -  l.  2340*OELTAM**3 
=  ZK*CLO/  ,4>l.44*TDC  ♦  2.0*TOC2  H. 


2.0YT0C2 
1 00.*TOC2*TOC2 
1.0  ♦  l.6B*TQC 


♦3.*TCC2 


0.202  «•  .8972+DELTAM 


40  RETURN 
END 


R1T3981 

PIT  3982 

R1T3983 

R1T3984 

R1T39G5 

R1T39  86 

R1T3987 

R IT  3983 

R1T3989 

R1T3990 

R1T3991 

R1T39  92 

R  IT  39  93 

R  IT  3994 

R1T3995 

R IT 3996 

R1T.3997 

R IT  3998 

R1T39C; 

R  IT  4000 

R1T4001 

R1T4002 

R1T4003 

R IT  4004 

R1T4005 

R1T4006 

R1T4007 

R1T4008 

R1T4009 

RiT40r0 

R1T4011 

RIT4012 

R1T4013 

RlT  40 14 

R1T4015 

RlT 40 16 


CC  -  00036 


3 
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o  o  n  n 


SUBPOUT  INE  I  FACT ( ID, PAP AH ,C P I TM, SPEED  ,F f 

THIS  SUBROUTINE  CALCULATES  INTERFERENCE  FACTORS  FOR  THE 
rUSFLAGE  AND  LIFTING  SURFACES. 

DIMENSION  XMACH(7|,REFUS(9),  WBRI63) 

C 

DATA 
I 
1 
1 
1 
1 
1 
1 
I 
1 
C 

FI  *  1.0 

IF  ( S°EEO. GT .1.01  GO  TO  30 
C 

GO  TO  (10,20,20)  10 
C 

C  FUSELAGE  CORRELATION  FACTOR  (RUB) 

10  PAR  10  *  PAR  AM/ 1 0. 0**6 
XMl  *  CRITM  -  .1 

XM  *  SPEED 

IF (  XM.GT.XM1  )  XM  -  XMl 
C 

FI  *  DLNTI  XM,  PAR  10,  XMACH,  RFFUS,  WBR,  1, 9, 7, 2, 2) 

PWB  *  FI 

CO  TQ  30 
C 

C  LIFTING  SURFACES 

20  A  -  COSIPARAM) 

IF  (A.GF.0.75)  RLS  *  -.9946  ♦  5.356B*A  -4.5389*A*A  ♦1.2487*A**3 
IF  (A. GT. 0.65. AND. A. LT. 0.751  RLS*. 9 96 6  752*1 . 75- A) 

IF  (A. LE. 0.651  RLS  *  0.9214 
B  *  SPFED  -  0.25 
IF  (B.LT.0.0)  B*0.0 

RLS  *  RLS  -  .0015  ♦  ,1818*B  -  .2756*B*B  +  1.0677*B**3 
FI  *  RLS*RWB 
IF  (ID.EQ.3I  FI  =  RLS 
r 

30  RFTUPN 
FND 


XMACH  /  0.25,0.4,0.6,0.7,0.8,0.85,0.9  /, 

REFUS  /  3. 0,10. ,20. ,30. ,40., 60., BO. ,200. ,100000./, 
UBR  /  1.063, 1.02, .979, .955, .926, .902,  .867, 

1.076, 1.036,. 996,. 972,. 942,. 92,. 884. 

1.066, 1.059, 1.02,. 996,. 966,. 943,. 91, 

1.044, 1.049, 1.037, 1.01 3,. 988,. 968, .939, 
0.993,1.018.1.032,1.015 ,1.003,. 993 ,.973, 
0.940,0.992, 1.013,1.014,1.014,1.01 ,1.007, 
0.932,0.984,5*1.015, 

0.924,0.976,5*1.015,0.924,0.976,5*1.015  / 


RIT4018 
R1T4019 
R1T4020 
R1T4021 
R1T4022 
RIT4023 
R1T4024 
R1T4025 
R1T4026 
R IT  40 2 7 
RIT4028 
R1T4029 
R1T4030 
R1T4031 
R1T40  2 
R1T40  3 
R1T40  .  4 
R1T4035 
R1T4036 
R1T4037 
R1T4038 
KIT  4039 
R IT  4040 
R1T4041 
R IT  4042 
R1T4043 
R IT 4044 
RIT4C45 
R IT  40 46 
R  IT  4047 
R IT  4048 
R1T4049 
R l T  40 '  0 
RIT40>1 
R1T 4052 
R1T4053 
R1T4054 
R1T4055 
R  IT  40  56 
RJT4057 
R IT  4058 
R IT  40 59 
R l T  40  60 
Rll  4061 
R 1  T  4062 
R IT  4063 
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SUBROUTINE  WDRGC  FNACH) 

CONFUTES  TOTAL  AIRPLANE  NAVE  DRAG 

COMMON  /&LK AOl/  N300YS,  NNACS ,  NSURFS,  NHT ,  NVT,  ISWP,  NPNLS 

COMMON  /BLK A02/  SREF,  All  531,  BHQtlOl, 
l  BAM XI 10 ) ,  BAB  SI  101,  BLN  SI  10)  , 

■  BLBT(IO),  BASEI10),  E1C40).  EAFX110).  FInmoi 

CXITI10I,  ELNSC10).  ELBTI 0), eSiIOI.  EHOiVol 
W1C95),  SIC  30) ,  ST0CI10),  S2C30),  EN0C10), 

SMLC10),  SWT(IO),  STAPR(IO),  SCRC10),  S3IA) 


COMMON  /BLKG01/ 


l°  •SSEX«I0).FRNACC10),  SWPLE, 

*DP°^InfWPMC’  SWPTE»  009»  TOCW,  CLD,  SEXW ,  BII31 
AR,  TAPR,  SPLAN,  GIC20),  ESWLE ,  ESWTE,  G2I96) 


COMMON  / BLK UP 0/  WPDC9) 

COMMON  /BLK8TA/  BETA 

COMMON  /BLKC01/  C1C1B),  TC0C5),  CDFUSC5),  C0B0DI5),  CDNACC4) 

CQWINGC4),  C0HTC4),  C3VTI4) ,  CDSURFC4),  £2(47) 


TCO ( 4 )  « 
CDFUSC4) 
CDB0DC4) 
C0NACC4) 
COW  IF'GC  4) 
C0HTC4) 
C0VTC4) 
CDSURF ( 4 ) 


0.0 
*  0.0 
-  0.0 
-  0.0 
*  0.0 
m  0.0 
■  0.0 
■  0.0 


IFC  FMACH.LF.1.0  )  RETURN 
BETA  «  SQRTC  FMACH**2  -1.) 

BODY  CONTRIBUTIONS 

IFC  NBODYS.FQ.O  )  GO  TO  100 

00  50  I  *  1,  NBODYS 

CALL  COWNCBAKXCI),  BLNSCI),  0.0,  COhl ) 
REX  *  SORTCBABSC I  1/3. 14159) 

CALL  COWTCBAMXU),  9LBTH),  RfXr  C0W2) 

*  C0FUSC4I  *  CC0W1  ♦  COM2)  * 
IFC  BNOC I ) .EO.O.O  )  BNnCI)  »  l.o 

CONTINUE’1  '  COUOD,4J  1  CDBODC  4)  f  (CO) 

NACELLE  CONTRIBUTION 

IFC  NNACS. EO.O  )  GO  TO  200 

DO  ISO  I  « ’ ,  NNACS 

«IN  *  SURTCEINCI  )/3. 141593) 

RFX  <  SOP TCEXITC I )/3.14l59  3) 


BAMXC 1 1 /SREF 


(C0W1  +  C0W2)*BAMX(I) /SREr*BNO ( I 


R1T406S 
R1T4066 
R1T4067 
R IT 4068 
R1T4069 
K  IT  40  70 
R 1 T  40  7 1 
R  l  T  40  7  2 
R  IT  40  73 
R1T40 74 
R1T4075 
R1T4076 
R1T40  77 
R 1140  78 
) »R1T  4079 
R1T40  80 
R) T  4081 
R1T4082 
R IT  4083 
R IT  4084 
R1T4085 
R IT  4086 
R1T408  7 
R1T4088 
RIT4089 
R1T4090 
R1T4091 
R IT  4092 
R1T4093 
R1T4094 
R1T4095 
R1T4096 
R1T4097 
R1T4098 
R1T4099 
R1T4100 
RLT4101 
R1T4102 
R1T4103 
R’T  4104 
R1T4105 
R1T4106 
R1T4107 
PIT 41 08 
RlT4i09 
R1T4110 
R1T4111 
) P1T41 12 
R1T4H3 
R1T4114 
R1T4115 
H1T41 16 
R1T4117 
R1T4118 
R1T4119 
RIT4120 


I 


c 

R1T4121 

CALL  COWNIEAMXII),  ELNSII),  R  IN*  CDW1I 

RIT4122 

CALL  COWNIEAMXI  1 )  •  ELBTII),  REX,  CQW2I 

R1T4123 

c 

R1T4124 

m  enoiii. eq.o.o  j  enoiii  *  i.o 

R1T4125 

CDNAC  (4)  *  ( COW  1  ♦  CDW2I  *  EAMXIII/SREF  *  ENOIII  ♦  C0NACI4) 

RIT4126 

150 

CONT INUE 

R1T4127 

c 

R1T4128 

c 

WING  CONTRIBUTION 

R  IT  4 129 

200 

WPOtll  -  AR  *  1 1 .-DOB 1**2  *  SPLAN/SEXW 

R1T4130 

WP0I21  *  TAPR/I l.-DOB*! l.-TAPRl 1 

RIT 4131 

WP0I3)  »  ESWLE 

RIT4132 

WPDI4I  -  ESWTE 

RIT  4133 

WPDI5I  -  FMACH 

RIT  41  34 

WPDI6I  *  SEXW/SREF 

R1T4135 

WPO  (71  -  UK  11) 

RIT  41 36 

WP0I8)  «  CLO 

RIT  4137 

WPD (9  I  «  TOCW 

RIT413B 

c 

RIT4139 

CALL  COWWICOUll  * 

R IT  4140 

C0WINGI4I  »  C0W1 

R1T4141 

r 

R IT  4142 

250 

I F (  NSURFS.LE.l  1  GO  TO  300 

R1T4143 

DO  290  J  *  2,  N SURFS 

RIT  4144 

I  -  J-l 

R1T4145 

c 

RIT  4146 

WPD(l)  *  ARS(I) 

R1T4147 

WPO ( 2  I  *  STAPRI  I ) 

RIT4148 

WPD( 31  -  SWL ( I ) 

RIT  4149 

WPO ( 4  I  *  SWT (  I) 

R1T4150 

WPDI6 )  *  SSFXl II/SREF 

RIT  4151 

WPDI7)  -  SK10M) 

R1T4152 

WPO  18)  =  S1I20MI 

RIT4153 

WPO (91  =  STOCI I 1 

RIT  4154 

c 

RIT4155 

CALL  C0WWIC0WJ1 

R1T4156 

IM  I  .EQ.1.AND.NHT.GT.0  )  C0HTI4)  *  COWl 

R1T4157 

I F (  NHf.CQ.O  I  GO  TO  260 

R IT  4158 

IF<  I  .EQ.2.AN0.NVT.GT.0  I  C0VTI4)  *  CDW1 

R1T4159 

IFI  NVT.EQ.O  1  GO  TO  270 

R1T4160 

IF (  I.GT.2  1  C05UIFI4)  *  CO  SURF  C  4 1  ♦  COWl 

RIT  4161 

GO  TO  290 

RIT  4162 

c 

RIT  4163 

260 

IFI  l.EQ.l.AND.NVT.GT.O  1  CDVTI4)  ■«  CDWl 

RIT  41 64 

IFI  NVT.EQ.O  )  GO  TO  280 

R1T4165 

270 

IFI  I.GT.l  I  CDSURF14)  =  CO  SURF  141  «  COWl 

KiT4166 

GO  TO  290 

RIT4167 

c 

R1T4168 

280 

COSURF  1 4  9  *  C0SURFI4)  ♦  COWl 

RIT 41 69 

290 

continue 

RIT  41 70 

c 

R IT  41 71 

300 

T  CO  1 4 )  =  C0FUSI4)  +CDBOOI 4 1  +CDNACI4)  ♦CDWINGIA)  +C0HTI4) 

R1T4172 

1  4-C0VT  I  4 1  ♦  CD  SURF  14) 

RIT  41 73 

R IT  41 74 

c 

RIT  41 75 

RETURN 

RII4176 

180 


RIT4177 
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SUBROUTINE  GOWN  UMAX,  XLNOS,  RIN,  COW)  R1T4179 

c  f-  RiT  A180 

C  NOSF  WAVE  DRAG  IBOOV  COMPONENT )  R1T41B1 

c  RIT  4182 

COMMON  /BLKBTA/  BETA  R1T4183 

f  RIT  4184 

0  IMF  f-iS  ION  XL  01  7)  *  YBETA(4),  FCDW(7,4)  RIT4185 

r  RIT  4186 

DATA  XLD  /  1.,  2.,  3.,  4»»  6.,  8.,  12.  / ,  RIT4187 

1  YBETA/  0.0,  0.32,  .458,  0.6633  /,  RIT4188 

2  FCDW  /  .1656, .0617, .0373, .0287, .0198, .0149, .0083,  RIT4189 

3  .2376,  .1256,  .088,  .061,  .0308,  .0177,  .0082,  R1T4190 

4  .2952,  .1667,  .1067,  .066,  .0311,  .0175, .0081,  R1T4191 

5  .3816,  .2010,  .1031,  .0624, .0297,  .0172, .0079  I  R1T4192 

C  RIT  4193 

COW  *  0.0  RIT 4194 

I F (  AMAX.LE.O.O)  GO  TO  50  R1T4195 

DMAX*SQRT (  AM AX/O. 7 e 53 5 8  )  R1T4196 

FLr)D*XLN3S/DMAX  R1T4197 

IF(R  IN.GT.O.OI  GO  TO  40  RIT4198 

IF (  ELOO.LE *0.0  >  GO  TO  50  R1T4199 

C  RIT  4200 

IF<  BETA. GE. 0.6633  )  GO  TO  20  KIT4201 

c  RIT  4202 

10  CDW  -  OLNT « FLOO, BE  TA ,  XLD,  YBETA,  FCOW,  7,4,7,  2,2)  R1T4203 

GO  TO  50  R1T4204 

r  R I T  4205 

20  X  ■  BETA/SQRTl !.♦  EL00**2)  R1T4206 

COW  -  (1.2  ♦  1.15  *  X)/(l.  ♦  1.9  *  X)  /(l.  ♦  EL0D**2)  R1T42C7 

GO  TO  50  R1T4208 

RIT  4209 
RIT 42 10 


FOR  A  BUOY  WITH  AN  OPEN  NOSE,  SUCH  AS  A  NACELLE,  THE  CONTRIBUTION  R1T4211 
OF  THF  NOSE  TO  THE  TOTAL  BODY  WAVE  DRAG  COEFFICIENT  IS  COMPUTED  ASR1T4212 
INDICATED  BELOW.  (THE  EXPRESSIONS  USED  FDR  OPEN  AND  CLOSED  BODY  R1T4213 
BOATTAIL  CONTRIBUTIONS  DO  NOT  REQURE  THIS  DISTINCTION — SEE  CDWT.  )  R1T42  14 


RIT  4215 

40  SORT  B  =  SQRT(BETA)  R1T4216 

I F (  SORTB.LT. 0.8144  )  SQRT8  ■  0.8144  R1T4217 

CDW  -  <( l.-2.*RIN/0NAXl/EL0D)**1.5/S0RTB  R1T4218 

C  •  RIT  4219 

50  RETURN  R1T422U 

END  RIT  422 1 
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SUBROUTINE  COWTUMAX,  XLAFT *  REX,  CDW)  R1T4223 

RIT4224 

BOATT  AIL  WAVE  DRAG  (BODY  COMPONENT  I  R1T4225 

R IT 42 26 

COMMON  /BLKBTA/  BETA  RIT4227 

RIT 4228 

DIMENSION  DBOOl 5) ,  CDWBT(5)  RIT 4229 

RIT 42 30 

CDW  *  0.0  RIT423I 

I F  (  AMAX.LE .0.0)  RETURN  RIT4232 

IE  (XI  AFT  .LE.  0.00011  RETURN  R1T4233 

OMAX>SQRT( AMAX/O. 785398  )  RIT 4234 

ELHO-XL  AFT/DMAX  R1T4235 

X-BETA/ELOD  R1T4236 

Y*  X*X  R1T4237 

Z*ELOD*ELOD  RIT  42  38 

RIT  42  39 
RIT  4240 


BOATTAIL  WAVE  DRAG  IS  A  FUNCTION  OF  8QATTAI L  FINENESS  RATIC,  BASE  RIT424I 
DIAMETER/MAXIMUM  DIAMETER,  AND  MACH  NUMBER.  COMPUTE  THE  BOATTAIL  R1T4242 
WAVE  DRAG  COEFFICIENT  AT  FOUR  DBOO(I)  VALUES  AND  INTERPOLATE  TO  R1T4243 

R IT  4244 


0000(11*0.0  RIT  4245 
COMBTIII  -  (1.165  -.5112*X  -.5372*Y  *.3964*X*Y> /l  KIT4246 
I F (  X .GT .1.0  i  COWBT(l)  =  0.513/X/Z  RIT4247 

R IT  4248 

0000(21-0.4  R IT  4249 
CDWBT (2 )  «  (1.067  -l.709*X  *1.6632*7  - . 686* X*Y ) /Z  RIT4250 
I F (  X .GT .1.0  I  CDWBT12)  *  0.3352/X/Z  RIT4251 

RIT  4252 

0000  <11*0.6  RIT  4253 
CDWBT ( 3  )  -  (0.7346  -1.4618*X  *1.5795*Y  -,6542*X*Y1 /Z  R1T4254 
I F (  X.GT.1.0  I  CDWBT ( 3 )  -  0.1980/X/Z  R1T4255 

RIT  4256 

0000(41=0.8  R1T4257 
CDWBT (41  -  (0.2555  -.5008*X  *.5024*Y  -. 2077 *X*Y» /Z  R1T4258 
IFI  X.GT.1.0  »  CDWBT(4)  -  0.0494/X/Z  R1T4259 


R1T4260 

COWBT ( 5  1*0.0  RIT4261 

OBDD  (51-1.0  RIT 4262 

BOOO-2. 0*REX/DMAX  R1T4263 

CALL  LNTP ( ROOD,  CDW,  OBOO,  CDWBT,  5,  2)  R1T4264 

RIT  4265 

RFTOPN  RIT 42 66 

END  RIT 42 67 
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SUBROUTINE  CDWWICOOSR) 

PROCEDURE  FOR  WING  PRESSURE  DRAG 

COMMON  /BLKWPD/  AR,  ZLAM,  ZL  E,  ZTE.  ZM,  SOSR,  TYPE,  CAM,  TOC 
COMMON  /8LKPRT /  KPR IN  T( 50) 

COMMON  /  BLKB02/  AA(22»,  BBI22),  CCI22I,  DDI22I,  XT(  22J 

10  N  *  TYPE 

HOT  -  CAM  *  0.055  /TOC 

XTOC-XTIN) 

TOC 2»  TOC**  2 

ROOT* I AA( N) +BB IN) *TOC*CC(NJ *T0C2*DD C  N) * T0C2* TOC) / TOC 
IF  IN.EQ.8J  ROOT  *  0 .8  82 16*( TOC ) **1 .606/T0C 


CALCULATION  OF  QUANTITIES  THAT  ARE  FUNCTIONS  OF  GEOMETRY. 

17  ZKW  -1.0 

TOC 2  »  T0C**2 

TOC  13  "  T0C**0. 33333333 
TOC53  »  T0C**1 .6666667 
ARW  *  AR*  TOC  1 3 
ARW  3  ■  TOC  *AR**3 

DENI  -  1.0/ARW+ARW3 
0EN2  -  2.  O/AR  M3*  1.  0 

ZKT  «  l.*4.*l.5-XT0C*{ 1  •  ♦. 5* SQR T (ROOT  J  * ) **2 
1  -0.25  *  SQRT ( ROOT)  *  II ,-XTOC  )  **2 

ZKC  *  1.0  ♦  2.5*  HOT  **2 

ZKB  -  1.069 
IF  I  ZKW.EQ.  1.2  I  ZKB  "1.0 
TRl  "0.5/1 l.+ZLAM 1**2 

TR2  «  l./Il.*ZLAM**2)**2 

ZLAM 1  ■  1.  ♦  TR2  *  (TANIZLEi  ♦  TANIZTEII**2 

IF  I  ZLE.GE.ZTE  I  ZKP  -  (COSIZLE)  ♦  TRl  *  (TANIZLE)**2 
1  —  T AN { Z TE 1**2 ) 1/ ZLAMl 

IF  (  ZTE.GT.ZLE  )  ZKP  *  (COSIZTE)  *  TRl  *  (TAMZTE)**2 
1  -  T  AN  I  ZLE  )  **2  )  )  /  ZL  AM  1 

ZX  -  I 2.0/0EN1  ♦  3. 33/DEN  2) *ZKP 

X  *  ARW* ZKP 

IF  (  ARW  .GE  .  1.0)  X».  jRTIZKP/C  1.  7321*1  i.  O-ZKP)  *1.0/1  ZKP*ARW**2m 

THIS  DO  LOOP  SOLVES  FOR  *ARE*  BY  NEWTCN*S  METHOD. 

DO  100  I"1 ,10 

X3  *  X**3 

X4  *  X  *X3 

F  =  12. 0*Xl /(X4H.0)  *  (  3 . 33  *X3  )  /  ( X3+2  .0  )  -  ZK 

FP  "  (  2.0-6.  0*X4) /((  X4*l.  0)**2)  *  I  2  0.  0*X**2  )  /  11X3*2 . 0 )  **2  ) 

FFP  =  F/FP 

IF<  KPR  I  NTI 2  0) •  EQ.2  .AND.  I.EQ.i)  WRITEI6.90) 

C 

IFIKPRINTI20J.EQ.2I  WR1TE(6,95)  I,  X,  F,  FP,  FFP 


R1T4269 
R  IT 42  70 
RIT4271 
R1T4272 
R IT  4273 
R1T4274 
R1T4275 
R1T4276 
R1T4277 
R  1T4278 
R IT  4279 
R1T42B0 
R IT  4281 
R1T4282 
R1T4283 
R  IT  4284 
R1T4285 
R  1T4286 
R  IT  4287 
R1T4288 
R IT  4289 
RIT4290 
R1T4291 
R IT 429? 
RIT4293 
R IT  4294 
R1T4295 
R1T4296 
R IT 429 7 
R1T4298 
R 1 T  42981 
R lT4298i 
R1T4299 
R IT  4300 
R IT  4 30  1 
R1T4302 
R IT  4303 
RIT4304 
R  1T4305 
R  IT  4306 
RIT4307 
R  IT 4308 
R1T4309 
R iT43i 0 
R1T4311 
RIT4312 
R1T4313 
R1T4314 
R1T4315 
R  IT 4316 
R1T4317 
R 1T4318 
R  IT4319 
R1T4320 
R  1T4321 
R  IT  4322 
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X  »  X-FFP 

IF  (ABSIFFP ).LE. 0.0001)  GO  TO  ILO 
100  CONTINUE 

110  IF|KPRINT(20).EQ.2)  WRITE(6,36) 

IF (KPR I  NT  (20).  EQ. 2)  WRITEI6.45)  ZLE,  ZTE,  T0C2,  T0C13,  TOC53, 
I  ARW,  ARW3 *  DENI,  0EN2 ,  ZKT,  ZKC,  ZL AMI ,  ZKP 

BETA2  »  ZM**2- 1. 0 
BETA  a  SQRTIBETA2 ) 

DIV  -  BETA/T0C2 
BET AW  *  BET A/TOC 13 
BETAW2*  BETAW**2 
BETAW3*  BE  TAW*  BE  TA  W2 
CD)  -  0.0 
C02  -  0.0 

CDA  a  T0C2*(  2.0*  3.  333/ 1  ZKW**2.8)  ) 

ZKL  IN  -  C0A/T0C2 

IF  (ZM  .GT.  1.0)  COI  «  COA/BETA 
TEST  1  a  1 . 0/COSI  ZLE  )  +  0.01 

IF  (ZM  .GT.  TEST1ICD2  «  CDA/SQRT l BETA2-T AN( ZLE ) **2) 

AREaX 

TEST  a  AB  S ( T  AN  I ZLE  )  ) 

UEXP  a  ( l .*2  «*  Z  LAM**0  .33  333  t 

FB  a  0.3  *  0.  7*ZKP**UEXP 

XM  »  0.5*  (l.*ZLAM**2  * (2.-ZL AM )**3  ) 

Z  -  COSIZLE#  ♦  COSIZTF.) 

IF  C  BETA. GT. TEST  )  XM  a  I  TE  ST/B  ETA )  **Z 
130  ZMI.  =  SORT  (TEST**2*1  .0  ) 

ARE  3  a  ARE**3 
ZKW  1  >  ZKW**  3. 8 

T1  a  l./ARE  /(I  •  ♦ (1 . *ZL  AM)  *  FB  *  BETAW**(  l.*ZKW  )  ) 

T2  -  ARE3  /II.  *0.  33333  *ARE  3  *BETAW**4) 

T3  ■  2./ARE3  / ( 1 .♦ ( . 66667*ZLAM  )  *BETAW**( l.*ZKWl)  *FB ) 

T4  *  1. /  1 1 .*3. *  ARE  *  BET AW**4 ) 

ZFEXP  «  F B **XM 
FBXMaFB**XM 

0 1  a  2KB  *  ZKW  *  BETAW  *  FBXM  *(T1*T2) 

02  a  ZKB  *  ZKW  1  *  BETAW  *  FBXM  *(T3*T4) 

COW  a  zkT  *  ZKW  *  ZKC  *  ZKB  *  TOC53  *  (2./01  *3.33/02) 

CDWA  *  CD  W/TOC 53 

CDOSR-CDW*SQSR 

IF  (ZM.GT.1.0)  CDDa  C0W*DIV 

AREW  a  ARE 

ARE  >  AREM/TOCl 3 


IFIKPRINTI 20).EQ.2)  WRITE(6,47) 

IF  ( KPR I NT( 20) *EQ. 2) WRI TE ( 6 ,48) 01 V . BE T A2 , BETAW, BET AW2 , CDA ,CDl 
l  TEST ,XH,FB, ZML , T 1 , T 2 , T 3, T4, D 1 , 02 ,CDW ,CDD 

VIE  *  ZLE  *  57.2956 

VTE  =  ZTE  *  57.2956 

IF  (KPRINT(20) . GT. 0)  WRITE(6f25)  AR  , ZKP , ZLAM, ZKT , VL E , ZKC, 9T E, 
1  ZKLlNfTOT  'ARW, TYPE, CAM, TOC,  TOC  1 3 , XTOC , TUC53 ,R 


R IT 4323 
R  IT  4324 
R1T4325 
R  1T432& 
R1T4327 
R1T432B 
R1T4329 
R1T4330 
R 1T4331 
R  IT 4332 
R1T4333 
P.  IT  4334 
R1T4335 
R 1T4336 
R1T4337 
RIT4338 
R 1T4339 
R1T4340 
R1T4341 
R IT  4342 
R1T4343 
R 1T4344 
R 1T4345 
R1T4346 
R 1T4347 
R  IT 4348 
K1T4349 
R IT  4350 
R1T4351 
R1T435? 
R1T4353 
R1T4354 
R IT  4355 
R1T4356 
R1T4357 
R  IT 4350 
R1T4359 
R 1T4360 
R1T4361 
RIT4362 
R IT  4363 
R  IT 4364 
RIT4365 
R IT  4366 
R1T4367 
R1T4368 
R 1T4369 
R1T4370 
R  1T4371 
,  C02,  R  IT 437 2 
RIT4373 
R IT  4374 
R1T4375 
R 1T4376 
R IT4377 
GOT,  R1T4378 


no 


ARE,  SCSR,  ARE* 


550  IF  I KPRINTI201 .GT.O )  HR1TE<6,600) 
iF  (KPRINT(20>.EQ.l)  HR!TE(6*610) 


ZM.GETAh,  XMfZFEXP  ,CDMA,CDM, 
CC1,  CC2,CDDSR 


90  FORMAT I  4H0  I  ,  5X  ,  1HX,  14X  ,1  HF  ,14X  t2HFP  ,13X  ,3HFFP/ 1 
95  FORMAT  (  1H  ,  I  3,  3X,  IP  4E  15.  71 


R  IT 4_*79 
RIT4380 
R IT  4381 
R  IT  4382 
R1T4383 
R  11  4384 
R1T43B5 
R1T4386 
R IT 438  7 
riT43sa 


36  FORMAT C 1H0 , 2X ,3HZLE ,12X , 3HZTE , 12X , 4HT0C2, 11X, 5HT0C13, 10X, 5HT0C53/  R1T4389 
l  1H  ,  2X»  3HARH,12X,4HARH3, 1J  X,4HDEhil  »i  l  X  ,4HDEN2  ,1 1 X  ,  3HZKT/  R1T4390 

1  3X, 3HZKC, 12X, 5HZLAM1* 10X, 3HZKP  )  R1T4391 

45  FORMAT!  IHO,  1P5E15.  7/ ( IX ,  1  P5  El 5 . 7  1  1  R  IT 4392 

47  FORMAT (  IHO, 2X, 3HD I  V , 1 2X, 5H8 ETA2 , 1  OX ,5HBE TAW  ,10X ,6HBETAH2 ,9X , 3HCDA/R1T4393 


1  1H  , 2X,3HCD1,12X,3HCD2, 12X.4HTCST, 11 X, 2HXM , 13X, 2HFB/ 

1  1H  ,2X,3HZML,12X,2HT1 , 13 X ,2HT2 ,13X ,2 HT3 , 13X , 2 HT4/ 

1  1H  , 2X,2H01, 13X,2HDZ,13X,3HCDW, 12X,6HKLINEQl 

48  F0RMAT(1H0,1P5E15.7/(1X,IP5E15.7) ) 

25  FORMAT! ///, 16X.36H  H  I  N  C  PRESSURE  DRA  G// 
111X.17H  INPUT  PARAMET  ERS , 16X» 18H  OUTPUT  PARAMETERS// 


17X.19H  ASPECT  RATIO 
17X»19H  TAPER  RATIO 
17X.19H  LE  SHEEP  DEG 
17X,  18H  TE  SHEEP  DEG 
1 7X , 1 9H  THICK  RATIO 
17X.19H  AIRFOIL  TYPE 
17X , 19H  XT/C 
17X.19H  RO/T 


17X.19H  RO/T  «  ,  F7.4, 10X,  12H 

17X.19H  H/T  =  ,F7. 4  »10X ,  12H 

17X.19H  KH  =  ,  F  7. 4,  10X,  12H 

1 7X  v 1 9H  SH/SREF  =  , F7.4, 10X, 12H 

600  FORMAT  {//31X,8H  RESULTS  //,72H  MACH 
1  CD  CDTH2D  CDTH3D  CO/SREF  1 

610  FORMAT ( 1H  ,  41 F5. 3 , 2X) , 5  I F7 .5 ,2 X I) 
RETURN 
END 


, F7.4 ,10X ,12H  KPLANF  *  ,F7.4/ 

,F7.4,10:  ,12H  KTHICK  *  ,F7.4/ 

,  F7.4 , 10X  ,  12H  KCAMB  »  ,F7.4/ 

,F 8. 4  * 10X , 12H  KLINTH  *  ,F7.4/ 

,F7.4,  10X,  12H  ARtaIG  =  ,F7.4/ 

,F3.0,F4.3,F5.3,5X,12H  T/C  1/3  = 
»F  7. 4 , 10X , 12H  T/C  5/3  *  ,F7.4/ 

, F7.4, 10X, 12H  F  =  , F  7. 4/ 

»F7. 4  »10X  ,  12H  M*  =  ,F7.4/ 

,  F  7.  4,  10X,  12H  ARE  =  ,F7.4/ 

, F7.4, 10X, 12H  AREW  =  .F7.4/1 

// , 72H  MACH  BHIG  EXP  FEXP 


R1T4394 
R1T4395 
R1T4396 
R IT  4397 
R1T4398 
R1T4399 
R IT  4400 
R1T4401 
R1T4402 
R  IT  4  40  3 
R1T4404 
, F  7. 4/  R1T4405 
.UT4406 
R1T4407 
R IT 4408 
R1T4409 
R1T4410 
CDW IGP1T4411 
R1T4412 
R  TT4413 
R1T4414 
R1T4415 


CC  =  00149 
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SUBROUTINE  CORGI  SPEED,  AEROK,  DELCUCDCI 
CAMBER  DRAG 

COMMON  /BLKGOl/  G1U?I(  SEXW,  G2I31),  AR,  TR , 

COMMON  /BLKA02/  SREF,  A1I4321 
CDC  *  0,0 

ARSREF  =  AP  *  SPLAN/SREF 
F  =  1.0/<3.1415<J*ARSREF*AERGK» 


COEFl  *  1.0/13. 141 59* ARSREF*(1.0-E)1 
C0EF2  »  0.7  *  SEXW/SREF 
IF(  E .GE .1.0  »  GO  TO  15 
IF|  SPEED. GE. 1.0  I  GO  TO  5 
IF  I  COEFl. GT.C0EF2  1  GO  TO  15 
5  CDC  a  COEFl  *  DELCl**2 
GO  TO  10 
15  CONTINUE 

CDC  »  C0EF2  *  DELCL**2 

10  RETURN 
END 


R1T4417 
R1T4418 
R1T4419 
R  IT 4420 

SPLAN,  G31118I  R1T4421 

RIT4422 
RIT4423 
R1T4424 
RIT4425- 
R1T442* 
R IT 442 1 
R1T442H 
R1T4429 
R1T4430 
RIT  44 3  l 
j  RIT443.2 

'  R1T443.J 

R1T4434 
R1T4435 
RIT  4436 
RIT443T 
RIT  4438 
R1T4439 
R 174440 

CC  *  00024 


\  \ 
\ 


o  o  o 


SUBROUTINE  BDRGC  SPEED,  AB,  SREF,  CDB)  R1T4442 

R1T4443 

BASE  DRAG  R1T4444 

RIT  4445 

COMMON  / BLKPRT /  KPRINTI 50)  R1T4446 

C  R  IT  444? 

COB  *  0.0  RIT 4448 

IF  (  AB.LE.0.0  I  RETURN  RIT4449 

IFISPEED.GE.l.O), GO  TO  10  R1T445Q 

COB  *  10. I  ♦  0.1222  *  SPEE0**8»  *  AB/SREF  R1T4451 

GO  TO  20  RIT 4452 

C  *  RIT 445 3 

10  CONTINUE  R1T4454 

COB  *  «1.42  /  ( 3. 15  ♦  SPEED* SPEED)  I  *  AB  /SREF  R1T4455 

IFl  SPEED. LE . 1.3  I  CDB  *  0.2222  *  AB/SREF  RIT4456 

r.  RIT  4457 

20  CONTINUE  RIT445B 

IF(KPRINT(15J.E0.0>  GO  TO  30  R1T4459 

WRITEI6, 1000)  S&EED,  AB,  SREF,  CDB  R1T4460 

1000  FORMAT ( 10X*MACH  »*F 10.7,5X*8ASE  AREA  =*F10. 7,SX*SREF  «*  R1T*461 

1  F12.5*  5X*BASE  DRAG  **F10.7  /  )  R1T4462 

C  RIT 446 3 

30  RETURN  R1T4464 

END  RIT 4465 

CC  «  00024 
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SUBRCUTINE  CMOW( SPEED,  CMO) 

C  COMPUTES  ZERO  LIFT  PITCHING  MOMENT  OF  WING 

COMMON  /8LKB04/  XB04(5I,  Y8D4(5),  2804(3) ,  F8D4(5,5,3) 

COMMON  /BLKA01/  NBOOYS,  NNACS,  NSURFS,  NHT *  NVT,  ISWP,  NPNLS 

v 

COMMON  /BLKA02/  Al(433) 

C 

COMMON  /BLKCOI/  Cl(IOO) 

C 

COMMON  / BLKG01/  GK49I,  SXX(IO),  G2(42) ,  ESWQC,  S3 (98) 

COMMON  /BLKPRT/  KPR1NTI  501 
C 

DIMENSION  CMC4( 20) 

CATA  CMC4  /  4*-0.25,  3*-0.219,  -0.3*  0.0»  ll*-0.2066  / 

C 

FMCR  -  Cl ( 72) 

CMOS  «  0.0 
NI  *  AI.235) 

C 

CO  100  I  *  1,  NPNLS 

CMOS  *  CMOS  +  41(244  ♦  II  *  SXX(I)  *  CMC4(NI) 

100  CONTINUF 
C 

CMO  »  0.0 
IF(  SPEED. GE.l.  )  RETURN 
C 

ARXR  =  G2 ( 35 ) 

TOC  «  G1 ( 46) 

TWIST  »  A 1 ( 278) 

SFXW  *  GK4B) 

CMOS  *  CMOS/SEXW 
C 

CMOB  =  ARXR  *  COS(ESMQC  )**2/(  ARXR  2.*C0S(  ESWQC ) )  *  CMOS 

TRX  *  G2(29)/G2(27) 

CMOT  =  CMOOT»  XBD4  *  YBD4  *  ZBD4  *FB04  *  5*5,3*  5,5) 

C 

MACH  =  SPEED 

I  *  EMACH.GT.PMCR  )  FMACH  =  FMCR 

CMACH  *  U*  ♦  5.9*T0C*FWACH**5I /  SORT (l.-(FMACH*COS (ESWQC )  )**2 ) 

CMO  *  (CMOB  +  CMOT)  *  CMACH 
C 

IF(  KPR 1ST ( 25) .GT .0  )  WR I TE (6, 1000)  CMO,  CMOB,  CMOT,  CMACH, 

1  CMOS,  ARXR,  TOC,  TWIST,  ESWQC,  TRX,  CMCCT ,  FMCR, 

2  {  AK234+I),  Alt  244*-I ) ,  SXX(I),  I  *  l , NPNLS  J 

^1000  FORMAT ( 5X,  *CMOW  DUMP* /(  IX,  7F  1 5. 5)  ) 

RETURN 


R1T4467 
R1T4468 
RIT  4469 
RIT4470 
RIT  4471 
RiT 4472 
RIT  4473 
« 1744 74 
RIT 4475 
RIT  4476 
RIT  4477 
R1T4478 
R1T4479 
RIT  4480 
R1T4481 
RIT 448 2 
R1T4483 
RIT  4484 
R1T4485 
RIT 4486 
RIT4487 
RIT  4488 
R1T4489 
R1T4490 
RIT449L 
R1T4492 
R1T4493 
RIT4494 
RIT 4495 
RIT4496 
RIT4497 
RIT 4498 
R1T4499 
R1T4500 
R1T4501 
R1T4502 
RIT4503 
R1T4504 
R1T4505 
R1T4506 
RIT  4507 
RIT4508 
RIT  4509 
RIT  4510 
R1T45I1 
RIT  4512 
R1T4513 
RIT 4514 
RIT  4515 
RIT  4516 
RIT4517 
RIT  4518 
R1T4519 
RIT  4520 
RIT  4521 
RIT  4522 
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RIT4523 


CC  *  00057 
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4-.  UJ  (vj 


O  " 


C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 


SUBROUTINE  WBAC( SPEED,  XACR) 

COMPUTES  PITCHING  MOMENT  SLCPE  OF  WING 

COMMON  /8LKA01 /  N8DDY S , NNACS ,NSURFS , NUT , NVT , ISWP, NPNLS 
COMMON  / BLK A02/  A02  (433  1 

COMMON  /0LKAO3/  ROJGHK,  CLE(3>,  CCS  ( 3)  ,  YC(  3)  ,  A03UOJ 

COMMON  /BLKGOi/  G1U4)  ,  DOB,  TOC,  CLD,  G2I32J,  AR ,  TR,  SPLANV 

1  G3(3I,  CRX,  CBX,  CTX,  YIX.  VOX,  SIX,  SOX,  ARI , 

2  ARXR,  CBXP ,  AKOP*  SOXP,  SWPLEI,  SWPLEO, 

3  SWPMCI,  SWPMCO,  G4I99) 

COMMON  /BLKCOl /  Cl (100} 

COMMON  /BLKPRT/  KPR  INT (50 } 

DIMENSION  XD£l(8),  V  DOB  (  8  }  ,  X8DQU5),  YA0N(6),  FCP(5,6) 

DATA  X03  /  0.,  .05,  .1,  .15,  .2,  .3,  .4,  .5  /, 

1  Y DOB  /  0.,  .1,  .154,  .19,  .219,  .266,  .3,  .33  / 

DATA  XBDOL  /  0.4,  .7,  1.0,  1.25,  1.67  /, 

YAON  /  0.  v  .4,  .6,  1.2,  1.6,  2.0  /, 

FCP  /  .54,.  535, .525, .516, .5,  .42  ,  .43  5  ,  .45 , .46  ,.46 , 

.35, .377, .4,. 4 14, .425,  .295, .33, . 355 ,. 375, . 394, 
.246, .2B5,. 32, .345, .365,  .21  ,.25, .288, .315, .34  / 


ARI 
TR  1 
TW 

FMCRO 


ARXR 
CTX/CRX 
A02I235) 
Cl  (72) 


IF (NPNLS .GT .1)  ARI 
IF(NPNLS.GT.l)  TR1 


ARI 

CBX/CRX 


r 

C 

C 


20  CALL  ACCR(SPEE0,6Rl, SWPLEI, SWPMCI , TR 1, S IX ,TOC , TW,  FMCRO, XACR, CL A I , 
l  XACSW) 

XACRX  =  XACR 

IF  (  NPNLS. EO.l  I  GO  TO  100 
CRANKED  WING  PLANFORHS 
TR  2  *  CTX/CBXP 

CALL  ACCR( SPEED, AROP, SWPLEO, SWPMCO, TR2, SOXP, TOC, TW,  FMCRO, 
l  XACRP ,  CL  A  OP  ,  XACSOP) 

XACRO  =  XACRP  *  CBXP /CRX  -  Y1 X*0. 5*TAN( SWPL EO) /CRX 
1  ♦  YIX  *  TAN(SWPLEI)/CRX 

XACSO  *  XACSOP  *  CBXP/CRX  *XACRO  -  X  ACRP+CBXP/ CRX 

XACR  =*  ( CLAI  *  SIX  *  XACRX  ♦  CLAOP  *  SOXP  *  XACRO  1/ 
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R  IT 4525 

R1T4526 

RIT4527 

R IT 4528 

RIT4529 

R  IT 4530 

R1T4531 

R 1 T  4532 

R IT  4533 

R1T4534 

R  IT 4535 

R IT 4536 

R1T4537 

R IT 453 8 

R1T4539 

RIT4540 

RIT4541 

RIT4542 

R IT 4543 

R  IT  4  544 

R1T4545 

R  IT 4546 

R1T4547 

R1T4548 

R1T4549 

RIT4550 

R IT  4551 

R1T4552 

RIT4553 

R IT  4554 

R1T4555 

R1T4556 

RIT4557 

R1T4558 

R 1T4559 

R  IT  4560 

R1T4561 

R1T4562 

RIT4563 

R1T4564 

R  IT 4565 

R1T4566 

R1T4567 

R IT  4568 

R1T4569 

R IT  4570 

R1T4571 

R1T4572 

R1T4573 

RIT4574 

R1T4575 

R1T4576 

R1T4577 

R 1T457B 

R1T4579 

R1T4580 


i  i 


i  { 
i  1 


!  j 


i  1 


i  t 
!  < 


no  o  on  o  o  o  non  o  o  o  n  o  o 


4 


C 


1  ( CL  A  l  *  SIX  +  CLAOP  *  SOXPI 


X4CSW  =  ( CL  A!  *  SIX  *  XACRX  +  CLAOP  *  SOXP  *  XACSO  >/ 
l  ( CL  A I  *  SIX  ♦  CLAOP  *  SOXP ) 

100  XACMB  =  XACR 


HI  NG-BGOY  COMBINATION 

BLN  =  AO  2 (8  5  I 

XLE  =  A02 (281) 

TANSQC  =  0.5  *  { TAN { SHPLE I )  ♦  TAN(SWPMCI)  ) 

B02  -  0.5  *  SQRTIAR  *  SPLAN) 

YMX  *  A02I  303) 

01 A  =  DOB  *  802  *  2. 

IF i  SPEED. GE. 1.2  )  GO  TO  200 

SUBSONIC  CALCULATION  OF  XACN  I  NOSE)  AND  XACBH  (WING  CARRY-OVER) 
XLEQ  *  BLN  ♦  1.6  *(XLE  -  PLN  ) 

XACN  =  -0.54  *  XLEQ/CRX 

BARE  =  ARXR  *  SORT ( 1 ,-FHCR0**2 ) 

IF  (  SPEED. LT.FhCRO  )  BARE  *  ARXR  *  SORT  1 1  .-SPEED**2  ) 

CALL  LNTP(DOB,  FDOB,  XDB.YDbB,  8,4) 

DXQC  =  G4I1B) 

XACBH  =  0.25  >  DXQC  *  FDOB/CRX 
IF  f  BARE.GE .4.  i  GO  TO  190 

XACBHO  *  0.125  *  ARXR  *  TAN(SWPLEI)  *  (l.+CTX/CRX) 

I F  (  XACBHO. GT. 0.5  )  XACBHO  =  0.5 

XACBH  =  (XACBHO  -  XACBH)  *  (BARE  -4.)**2/16.  ♦  XACBH 
190  XACBH1  =  XACBH 
XACN 1  *  XACN 

IF  J  SPEED. LE.FMCRO  )  GO  TO  290 

SUPERSONIC  CALCULATION  OF  XACN  €  XACBH 
200  BETA  »  0.663325 

IF  I  SPEED. GT. 1.2  I  BETA  =  SQRT  {  SP  EE  O*  2  -l.) 

AON  =  ( XLE  -  BLN) /BLN 
I F (  AON.LT.O.  )  AON  =  0. 

BDOL  =  BETA  *01 A  /BLN 


;<LT458l 

RIT4582 

R1T4583 

RIT4584 

R1T4585 

R  IT  4586 

R1T4587 

R IT  4588 

R1T4589 

R1T4590 

R1T4591 

R1T4592 

R1T4593 

R  IT  4594 

R1T4595 

R1T4596 

R1T4597 

R1T4598 

R1T4599 

R1T4600 

R 1T4601 

R1T4601 y 

R1T4602 

R IT  4603 

R1T4604 

R1T4605 

RIT4606 

R1T4607 

R1T4607) 

R IT 4608 

R1T4609 

R IT  4610 

RIT46101 

R 1T46102 

RIT4610; 

R1T46U 

R 1T4612 

RIT4613 

RIT46131 

R IT  4614 

R1T4615 

R1T4616 

R 1T4617 

R1T4618 


FIGURE  4.2 . 2 .1 —23 A  DATCQM  *******  R1T4619 

XCPOL  =  DL  NT(  BDOL ,  AON,  XBDf  ,YAON,FCP,  5,6,5,  2,2)  RIT4620 

XACN  =  XLE/CRX  *  iXCPOL  -l.  >  R1T4621 

R IT  4622 

BDOC  =  BETA  *  DIA/CRX  RIT4623 

BCOT  =  BETA  *  TAN(SHPLEI)  R114624 

A 1  =  0.  5  84  5  R1T4625 

IF  (  BCOT.GE.l.  )  A  1  =  0.  5985  +  0.  00214*A  LOG  (  BCOT)  R1T4626 

I F (  BCOT. LT. 1.0. AND. BCOT .GT  .0.1)  A1  =  0  ,5985  ♦  0. 00607*ALOG( BCOT )  R \T4627 

R IT 46 28 

FIGURE  4.3.2.1-37A  DATCOM  *******  R1T4629 

XACBH  =  0.5  +  A!* BOOC  -.1 057*BC0C**2  +.0172*BD0C**3  R1T4630 
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I 


i 


-.1*  ili'n. 


c 


c 


c 


c 


c 


c 


IF (  SPEED. GE. 1.2  )  GQ  TO  290 


XACN  «  XACN1  ♦  (  XACN  -XACN1)  *(  SPEEO-FMCRG) /(1.2-FMCRC) 
XACBW  =  XACBW1  +  ( X ACBM-XACBW1 )>  ( S P EEO-FMCRO ) / ( 1 .2-FHCRO ) 


290  CL AB 
CLAM 
FKBW 
FKW8 
CLABW 
CL  AMB 


CL ( 55  I 

CL (54)  < 

0.0004  +1.2662*038  +. 6018*DOB**2  +. 1263*00B**3 
1.0028  +.7116*008  +.42*D0B**2  - . 1366*OOB** 3 
FK8W/( FK8  W  +  FKHB)  *  CLAW 
FKWB/(FKBW  +  FKWB )  *  CLAW 


300  XACS 
1 


(XACN  *  CLAB  +  XACWB  *  CLAWB  +  XACBW  *  CLABW )/ 
(CLAB  +  CLAW) 


XACS  =  (XACN  *  CLAB  +  XACSW  *  CLAWB  +  XACBW  *  CLABW)/ 
1  (CLAB  +  CLAW) 

0(08)  =  XACS 


I F (  KPRINT(18) .EQ.O  )  GO  TO  400 

WR I TE( 6 i 1 000 )  XACR,  XACN.CLAB,  XACWB, CLAWB,  XACBW, CLABW, 
1  XACS,  SPEED,  XLEO,  FDOB 


400  RETURN 

1000  FORMAT (5X,*WBAC  OUHP*  /(5X,6F15.5)  ) 
END 


R1T46301 

R IT  46302 

R1T46303 

R  1T46  304 

R  IT  46  31 

R1T4632 

R IT  4633 

R1T4634 

RIT4635 

R1T4636 

R1T4637 

R IT  4638 

R  IT  46  39 

RIT4640 

R  IT 4641 

R1T4642 

R1T4643 

RIT4644 

RLT4645 

RLT4646 

R IT 4647 

RIT4648 

R IT  4649 

R1T4650 

R1T4651 

R1T4652 


CC  -  00138 


SUBROUTINE  ACCRI  SPEED, AR, SWPLE , SWPMC ,TR , SPLAN , TOC , TW.FMCRO, 
i  XACR ,  CLAX,  XACS  I 

C 

C  COMPUTES  AERODYNAMIC  CENTER  OF  SINGLE  PANEL  WINGS 

C 

COMMON  / BLKBD3/  BOTC12J,  AT  SW( 6) ,  TPRTC6),  FXAC<12,6,6> 

C 

COMMON  /BLKBD6/  XBD6I4),  YBD6I4),  Z8D6I 6)  ,  FB06 1 14 ,4,6 ) , 

1  FB062 (4,4,65,  FBD63<4,4,6) 

C 

COMMON  /BLKCLA/  X(II) 

COMMON  /8LKPRT /  KPR1NTI 50) 

COMMON  / BLKC01/  CIUOO) 

COMMON  /BLKMAP/  MAP,  TRANS,  OY,  AMAPI22),  BMAP(II) 

C 

DIMENSION  XDYI6 ) ,  YAC(6>,  XVAL13J,  VALI3) 

OATA  XVAL  /  0.0,  0.2,  0.5  / 

DATA  XOY  /  .2,  .4,  .6,  .8,  1.2,  1.6  /, 

1  YAC  /  .67, .585, .55, .555, .59,. 61  / 

C 

N I  *  TW 

OY  =  AMAP IN  I  I  *  TOC 

ARLO  *  C 1 ( 71) 

C 

SB  *  2. 

I F (  SPEED. EO. 1.0  I  GO  TO  20 
IF (  SPEED. GT. 1.0  )  GO  TO  10 

C 

TANOB  *  TANISWPLEI/SORTI l.-SPE£0**£i 
I F <  TANOB. LE. 1.0  I  SB  =  TANOB 
I F (  TANOB. GT.l.O  )  SB  *  2.  -  1. /TANOB 
GO  TO  20 
C 

10  TANOB  =  TANISWPLEI/SORTI SPEED**2  -l. I 
ZF(  TANOB. LE.l.  )  SB  =  4. -TANOB 
I F (  TANOB. GT.l.  I  SB  *  2. +1. /TANOB 
C 

20  ARTSW  *  AR  *  TAN( SWPLE J 
C 

CALL  TLNTCSB, ARTSW, TR ,  XAC1,  BOT,ATSW,TPRT,FXAC,  12,6,6,  12,61 

C 

KPR11  =  KPR  INT  1 1 1 ) 

KPRINT(ll)  =  0 
xm  -  SPLAN 
X ( 2  I  =  0.0 

X  (  3  I  =  TR 

X ! 4 !  *  AR 

X ( 5 1  »  0.0 

I F (  TW.E0.8.  »  XI 5 1  *  0.0334 

X ( 6  I  =  0.0 

X  (7  I  »  0.0 

I F  (  TW.EQ.8.  I  XI 7 1  =  0.09 
X  1 8  >  =  0.0 

X  1 9  I  *  0.0 

IF!  TW.EO.f  I  X(S)  =  1.173763  *  TOC 

XI  10)  *  SWPMC 


R1T4654 
A1T4655 
R1T4656 
R1T4657 
R1T4658 
R1T4659 
R1T4660 
R1T4661 
R1T4&62 
R1T  4663 
RIT4664 
R1T4665 
R1T4666 
R1T4667 
R1T4668 
R1T<,669 
RIT4670 
R1T4671 
R1T4672 
R  IT  46  7  3 
R1T46  74 
RIT4675 
R1T4676 
R1T46  77 
R  IT  46  78 
R1T4679 
R1T4680 
R1T4681 
R1T4682 
R1T4683 
R1T4684 
R1T4685 
R1T4686 
R1T4637 
R1T4688 
R1T4689 
R1T4690 
R1T4691 
R1T4692 
R1T46  93 
R1T4694 
R1T4695 
R1T4696 
RIT4697 
R1T46  98 
R IT  4699 
R1T4700 
R1T4701 
R1T4702 
RiT  4703 
R1T4704 
RIT  4705 
RIT  4706 
RIT  4707 
R1T4708 
RiT  4709 
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30  XCllI  *  SPL  AN 

C 

CALL  AER2CSPEE0,  CLAXI 
C 

XAC2  «  XAC 1 

VBAR  *  ( SP  EED**2  -1. )/TQC**0.6667 

ABAR  *  AR  *  T0C**0. 3333 

C 

I F (  VBAR. GE. 1.0. OR. VBAR. LE. -2.  )  GO  TO  40 

C 

C  TRANSONIC  AERODYNAMIC  CENTER 
C 

CALL  TLNTIABAR.VBAR.ARTSW. VALC II , XBD6, YBD6 ,£ B06,EBD61 ,4,4,6 ,4, 4) 
CALL  TLNT (ABAR, VBAR, ARTSW, VALC 21 , XBD6 , YB06, ZBD6 ,FB062 ,4 ,4 ,6 ,4,4 ) 
CALL  TLNTCABAR,  V8AR ,ARTSN, VAL C 3)  ,XBD6,YBD6,ZBD6  ,FBD63  ,4  #4  .6  .4 ,4 1 
C 

CALL  LNTPCTR,  XAC 2,  XVAL,  VAL,  3,  2) 

C 

40  XACR  «  XAC I 

IF C  SPEED. LE.FMCRO. OR. SPEED. GE. 1.2  )  GO  TC  50 

EMI  -  FMCR0  ♦  0.05 

FM2  =  SORT  Cl.*  TOC**. 66667) 

XACR  *  XAC2 

C 

I E (  SPEED. GT. EMI. AND. SPEE0.LT.FM2  )  GO  TO  50 

IF t  SPEED. LE. EMI  )  XACR  *  XAC 1  ♦  C XAC2-XAC1 1 *1 SPEED-EMCRO )/.05 
I F (  SPEED. GE.EM2  )  XACR  *  XAC 2  ♦  C XAC1-XAC2 ) *C SPEED-FM2 )/ 

1  I  1.2  -  EM2) 

C 

50  ARHI  -  2.*  ARLO 

XACS  =  Cl.*2.*TR»/12.*  ARTS*  ♦  I  1.  ♦  TR**2/f l.*TR) 1/3. 

IF  C  AR.GT.ARHI  I  GO  TO  60 

CRLL  LNTPCDY,  XACS1,  XDY,  YAC,  6,  2) 

XACS  »  XACS1  *  C1.*2.2*TR)/17. 544  *  ART SW  -0.2 
C 

60  IFC  KPRINT ( 18I.F0.2  )  WR I TE 1 6 , 1000)  SPEED,  AR,  SWPLE,  SWPMC, 

1  TR,  SPLAN,  TOC,  TW,  FMCRO,  XACR,  CLAX, 

2  SB,  ARTSW,  XAC1 ,  ABAR,  VBAR,  VAL,  XAC2, 

3  EMI,  EM2 ,  ARHI,  XACS 
C 

1000  FORMAT (5X«  *ACCR  DUMP*  /(5X,6E15.5)  ) 

C 

KPRINTCll)  *=  KPR11 

RETURN  \ 

ENO 


RIT4710 
R IT 471 1 
R1T4712 
R1T4713 
R1T4714 
R1T4715 
R1T4716 
R1T4717 
R1T4718 
R IT  47 19 
R1T4720 
R1T4721 
R1T4722 
R1T4723 
R IT 4724 
R1T4725 
R IT 4726 
R1T4727 
R1T4728 
R1T4729 
R IT  47  30 
R1T4731 
R1T4732 
R1T4733 
R1T4734 
R1T4735 
R1T4736 
R1T4737 
R1T47JB 
R1T4739 
R1T4740 
RIT4741 
R IT  4742 
R1T4743 
R IT  4744 
R 174745 
RIT4746 
R1T4747 
R1T4748 
R1T4749 
RIT4750 
R1T4751 
R1T4752 
RIT4753 
P.  IT  47  54 


CC  ■  00101 
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no  ct 


r 

c 

c 


c 

c 


CVERLAY(3,4I 
PROGRAM  IS ML 

COMMON  /BLKHLS/  NHL  SV,  DFII3,5I,  CPF  I  ( 5 1 ,  OSII5),  CPS  1(5), 

1  OELCO ( 5 ) ,  HI 5 ) ,  OF  12(3, 5) ,  CPF2(5i,  DSI2I51, 

2  CPS2(5» 

COMMON  /BLKA04/  I HL S , NXF ,NXS,  A2<62),  BFil,  BF1Q,  CF1(3J,  BF2I, 
1  BF20,  C F2( 3 ) ,  8S1I,  BSIO,  CSI,  BS2 1 ,  BS20,  CS2 

COMMON  /  BLKCOl/  C  H  05  J ,  CPF,  CPS,  XACS,  OCOLG,  C2C1U 
COMMON  /  BLKG01/  GH200) 

COMMON  /BLKC02/  C02(ll) 

COMMON  /BLK0V3/  ITVP,  nV3A(7)  ,  JPASS,  RCT ,  OTE,  ITRIM 

OIMFNS  ION  OF  (  31 ,  CF0C(3),  COLdOJ 
DATA  OF  /  3*0.0  /,  CFOC  /  3*0.0  / 

OATA  COL  /  10*0.0  / 

00  700  I  *  1,  NHL  SV 
OF  C 1 1  *  OF  I  ( 1,  I  ) 

OF  (  2  1  *  OF  1(2,  1 1 

CF(3»  *  OF  I  ( 3,  I) 

OS  «  DSKII 

CPF  *  CPFKII 

CPS  *  CPSI(I) 

I F (  CPF.EO.O.  1  CPF  »  1. 

CFOC  (LI*  CFK1J  /  CPF 
CFOC  (21*  CFK2I  /  CPF 
CF0C(3)«  CF1(31  /  CPF 
Ic(  CPS. EG. 0.  »  CPS  *  1. 

csnc  «  csi  /  cps 

CCOLG  »  0ELCDII1 
HGT  *  H{ I  ) 

OFLAP  *  OF ( 1 I  ♦  DF (21  ♦  DF(3) 

0F I  *  BF1I 

BFO  *  BF10 

CF  *  CFim  ♦  CFl  ( 2)  ♦  CFH3I 
BSI  «  BS1I 

eso  *  8S1Q 

CALL  SSET ( OF ,  DS,  CFOC,  CSOC,  OTE,  ROTI 
CALL  OSETIBFI,  BFO,  BSI,  BSO,  CFl 
CALL  MSET ( BF I,  BFO,  BSI,  BSO) 

IF (  IHLS.EO. I  I  GO  TO  500 

CALCULATION  OF  THE  EFFECT  OF  THE  SECOND  HIGH  LIFT  SEGMENT 


DF(l)  * 

OF  I 21 1, 

1 1 

DF ( 2 1  * 

OF  I 2f  2 , 

I) 

OF ( 3  I  * 

0FI2O, 

I) 

OS 

OS  1 2( 1 1 

CPF 

CPF2(  I  I 

CPS 

CPS21  1 1 

CFOC (11* 

CF2( l) 

*  CPF 

cFocm* 

CF2(2) 

*  CPF 

R1T4756 
R1T4757 
RIT4758 
R1T4759 
R1T4760 
R1T4761 
R1T4762 
R1T4763 
R1T4764 
RIT4765 
R1T4766 
R1T4767 
R  IT  47  68 
R1T4769 
R1T4770 
R1T477I 
R1T4772 
R1T4773 
RIT4774 
RIT4775 
R1T4776 
R1T4777 
R IT  4778 
R1T4779 
RIT4780 
R1T4781 
R1T4782 
R1T4783 
R1T4784 
R1T4705 
R1T4786 
RIT4787 
R1T4738 
R1T4789 
R1T4790 
RIT4791 
R1T4792 
RIT4793 
R IT  4794 
RIT4795 
R1T4796 
R1T4797 
R1T47  8 
R1T47  j9 
R1T4800 
R1T4801 
R1T4802 
R1T4803 
R IT  4804 
R1T4805 
R1T4806 
R1T4807 
RIT4808 
RIT4809 
RIT4810 
RIT4811 
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CFDCI3)*  CF2(3I  *  CPF 
CSOC  *  CS2  *  CPS 
C 

DA  -  C02I8)  -  Git  B 2  I 
DR  *  CO  2 ( 1 1 1  -  1. 

DO  300  J  *  1,  10 
300  COL  I J  )  *  C02 ( J  9 
C 

BFI  =  8F2I 

BFQ  »  BF20 

CF  =  CF2I1)  ♦  CF2(2)  ♦  CF2(3J 

BSI  *  8S2 1 

BSD  =  BS20 

C 


CALL  SSETIOF,  OS,  CFOC,  CSOC,  OTE ,  ROT) 

CALL  DSET ( BFI ,  8F0,  BSI,  BSD,  CF  1 
CALL  MSET  (BFI,  BFC1,  BSI,  BSO  I 
C 

C02( 8 )  =  C02I8)  ♦  DA 
C02(  ID*  C02II1)  ♦  OR 
00  400  J  *  If  10 

400  IF  t  J.NE.8  J  C02(J1  *  C02IJ)  ♦  COLIJ) 

C  LlII 

500  ALPHA  =  -1. 

CL  *  -  10. 

600  ALPHA  *  ALPHA  ♦  1. 

CLl  -  CL 

CALL  DAERO ( ALPHA,  CL,  CO,  CM,  AGRD,  CLG,  CDG,  CMG*  HGT *  DFLAP) 

IF(  ALPHA. FO. 0.0  )  HR  I TE I  6, 20001 

IF (  HGT .EQ. 0.0  )  HR ITEI 6 , 2001 )  ALPHA,  CL,  CO,  CM 

I F (  HGT. GT. 0.0  )  HR ITEI 6, 2001 )  ALPHA, CL , CO, CM, AGRD, CLG, CDG, CMG 


I F (  ALPHA. GT. 60.0  )  GO  TO  700 
IF (  CL .GT .CL  1  )  GO  TO  600 
700  CONTINUE 

2000  FORMAT  1 1H1,  20X,  *H  IGH  LIFT  SURVEY*  //  15X,  *ALPHA*  10X, 

1  *  CL  *  10X,*  CD  *  10X,*  CM  *10X,*AGR0*10X,*  CLG*10X,*  CDG* 

2  10X,  *CMG  *  /  ) 

2001  F0RMATI5X,  F15.2,  3F15.5,  F15.3,  3F15.5I 
END 


R1T4812 
R1T4813 
R1T 4814 
R1T4815 
R1T4816 
RIT4817 
R1T4818 
R1T4819 
R  IT  4820 
R1T4821 
R1T4822 
R1T4823 
R1T4824 
R  IT  4825 
R IT  4826 
R1T4827 
R1T4828 
R1T4829 
R1T4830 
R1T4831 
R1T4832 
R1T4833 
R1T4834 
R  IT  4835 
R1T48  36 
R1T4837 
R1T4838 
R1T4839 
R1T4840 
R IT  4841 
R1T4842 
R1T4843 
R IT  4844 
R1T4845 
R1T4846 
R1T4847 
R1T4848 
R1T4849 
R1T4850 
R1T4851 


CC  *  00096 
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SUBROUTINE  SSETIDF,  DS,  CFQC,  C  SOC  ,  OTE »  ROT) 

COMPUTES  SECTION  INCREMENTS  FOR  FLAPS  AND  SLATS 
COMMON  /RLKPRT/  KPRINTI50) 

COMMON  /  BLKCOl/  CU77),  DC1F,  DC  IMF  ,  OCOFS,  OCMFS,  OCISj 
1  DC1MS,  DCDSSt  DCMSS,  CPF «  CPS,  C2t 131 

COMMON  /BLKA04/  IHLS,  NXF,  NXS,  TF .  TS,  XDF C5> ,  FCPFI5I * 

1  F  DC  1 F I  5 1 ,  FDCHXF1 5) ,  FCQFI51  •  FCMF15I , 

2  XDSiM,  FCPSi 51 t  FDCIS(5>,  FDCMSI5I,  FDCOSC5), 

3  FOM SI 5  )  ,  A04116I 

DIMENSION  DF(3».CFOCI3J,  ETAI3I,  C1QI3),  0CL<3>,  PMAXI3), 

1  DCLM  (  3 1 «  PCMI3),  DCMI3),  X114),  U(8),  Fl(4,8>, 

2  X2(5»,  Y2(6).  F2( 5,6),  X3(6),  Y3(4),  F316.4), 

3  AO( 4) t  A1C4),  XROTI 5) *  YE MAXi 5, 3) , XXDSI4 J ,  YEDI4.3J 

DATA  AO  /  0.915,  1.215,  1.39,  1.545  /, 

1  A 1  /  -.01186,  -.0115,  -.0125,  -.0130  /, 

2  XI  /  0.,  .1,  .2,  .3  /, 

3  Y 1  /  0.,  10.,  20.,  30.,  40.,  50.,  60.,  70.  /, 

4  FI  /  5*0.0, .001, .004, .0085,  0. , . 009 , . 02 , .032 , 

5  0., .019, .0425, .07,  0. , .0325 , . 071 ,. 1 18 , 

5  0. , . 049, • 104 , • 1 7,  0. , .063 ,. 14, .237, 

5  0., .084, .18, .295  /, 

6  X  2  /  O.r  . 1 i  .2,  .3,  .4/, 

7  Y2  /  0.,  10.,  20.,  30.,  40.,  50.  /, 

8  F2  i  6*0.0, .001, .003, .006, .012,  0. ,.  >03 , .0075 , . 013 , .023 , 

9  0., .011, .024, .0385, .059,  0. ,. 02 , .045 , . 079 , . 117 , 


DATA  XROT 
L  YEMAX 


0. 

’  0. 
r  .2 
'  0. 
0. 
/  0 


.011,. 024,. 038 5,. 059,  0. ,. 02 , .045 , . 079 , . 117 , 

.03,  .069, .127, .205  /, 

1.,  2.,  4.,  6c,  8.  /, 

.3,  .4,  .656  /, 

.01, .02, .058,. 155, .28, 0. ,. 01 , . 02 ,.05, .12, .24, 

.01, .02, .046,, 091, .2,0. ,.0  08 , .016, .032, .057 , .106/ 
0,  0.07,  0.08,  0.1,  0.2  / , 


R1T4853 
R1T4854 
R1T4855 
R1T4856 
R1T4857 
R  IT  48  58 
RlT4b59 
R1T4860 
R IT  48  6  1 
R1T4862 
R1T4863 
R1T48&4 
R1T4865 
R I T  48  66 
R1T4867 
R1T4868 
R1T4869 
R1T4870 
R1T4871 
R1T4872 
R1T4873 
R1T4874 
R1T4875 
R1T4876 
R1T4877 
R1T48  78 
R1T4879 
R1T4880 
R1T4881 
R1T4882 
R  IT  488  3 
R1T4884 
R1T4885 
R1T4886 
R1T4887 
R1T4888 
R1T48B9 
R1T4890 


2 

.56, 

1.34,1.74, 1.72,. 8,. 56, 1.09, 1.2, 1.15,. 2  /, 

R1T4891 

3 

XXDS  / 

0.0, 

15.0,  25.0,  45.0  /, 

R1T4892 

4 

YED  / 

1.0, 

1 • 0  9  • 96 1  «  25 v  1 • 0 9 1 • 0 t ■ 73 « 0 • t 

R1T4893 

5 

1.0, 

l.Ov  •97»  ,67  / 

41T4894 

R1T4895 

DC  IF 

= 

0.0 

RIT  4896 

DC  IMF 

= 

0.0 

RIT  4897 

DCDFS 

0.0 

R1T4898 

DCMFS 

= 

0.0 

RIT  4899 

DC  IS 

= 

0.0 

R1T4900 

DC  .MS 

= 

0.0 

RIT 4901 

DCDSS 

0.0 

R IT  4902 

DCMSS 

* 

0.0 

RIT  4903 

I F (  TF.EQ.O.  I  CO  TO  100 
I F (  TF.GE.5.  )  GO  TO  60 

TRAILING— E  >GE  OEVICE 


RIT  4904 
R1T4905 
R1T4906 
RIT  4907 
R1T4908 
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c 


c 

c 


c 


c 


c 


c 


c 

c 


c 

c 


NF  ■  TF 

CFP  =  CFOC(l)  ♦  CFOC I  2 )  ♦  CF0CI3) 

IF  (TF.EQ.l.)  ZKM  «  1.0031  -.928*CFP  ♦  9.9869*CFP**2 
1  -7.1843*CFP**3 

IF C  TF.EQ.l.O.AND.CFP.LT.O.l  )  ZKM  =  1.0 
IF (  TF.GT.l.)  ZKM  =  1.2029  -1.1834*CFP  +13. 145*CFP**2 
1  - 11 .5455*CFP**3 

IF(  TF.GT. 1.0. AND.CFP.LT. 0.1  )  ZKM  *  1.2 
ZKD  =  1.9  -  0.0225  *  <DFU>+DFt2)+DF(3>) 

I F (  ZKD.LT.l.O  )  ZKD  *  1.0 
ZKT  =  1.23  ♦  4.5  *  ROT 

ZKMAX  =  ZKT  *  ZKD 

TF(  TF.LE.2.  J  NT  =  1 

I F (  TF.E0.3.  )  NT  =  2 
I F f  TF.EQ. 4.  }  NT  =  3 

PHI  =  DFlll 

DO  50  I  *  1»  NT 

I F (  I.GT.l  I  PHI  =  DF ( I )  ♦  PHI 

IF (  I.EQ.NT)  PHI  *  FiHI  +  OTE 

I F t  I.GT.l  )  CFP  =  CFP  -  CFOC 1 1  —  1 1 

ETACII  =  AOCNF)  ♦  A1(NF)*PHI 

IFITF.EQ. 1.0. AND. PHI. GT. 35.0  )  ETA(II  »  1.5912  -.05068*PHI 
1  0007  54*PH  1**2  -  .  0000039*PHI  **3 

IF(  ETAIIJ.GT.0.77  )  ETA  111  *  0.77 


DFR  *  DF( 1 1/57.2556 
OF  =  ACOSll.  -  2.*CFP) 

C10III  =  2.* (OF  ♦  SINIOFH 

OCLII)  =  ETAU)  *  CIO(I)  *  DFR 
DC  IF  DC  IF  ♦  DCL(I) 


XS  =  0.0 

I F (  TS.GT .0. 0. AND.DS.GT. 0.0  )  XS  *  CSOC 
X  =  AC0S(2.*XS  -  1.1 

RMAX(I)  =  1.  -COF/COF  ♦  SINIOFH)  *  (1.*  ALOGI ABSI SINI.5* IX+OF 
1  S  IN (  .5*  (  X-OF  ) )  )  l/IOF  *  TAM  . 5*X)  I  » 


DCLMU)  -  DCL 1 1  )  *  RMAX(I)  *  ZKMAX 
IFI  DCLMII). GT.DCLCII  )  DCLMU)  *  OCLII) 
DC  1 H  P  .  DC  IMF  ♦  DCLMU) 


RCM ( I )  =  -  CFP  *  SIN|0F)/C10(I) 

DCM (  I )  *  OCLII)  *  RCM ( I )  *  ZKM 
' DCMFS  =  DCMFS  *  DCM( I) 

50  CONTINUE 

DCL 2  *  DCIF*DC1F 

CFP  =  CFOC 1 1 )  +  CFOC ( 2 )  ♦  CF0CI3) 

IFI  TF.FQ.l.  )  DCDFS  *  DLNTICFP*  DF 11 1 ,  XI,  VI ,  FI,  4, 8, 4, 4, 2) 
IFI  TF.EQ. 2.  )  DCDFS  *  DLNTICFP,  DF U )  ,  X2,  Y2 ,  F2 ,  5, 6, 5, 4,2) 


R IT 4909 
R1T4910 
R1T4911 
R1T4912 
R1T4913 
R1T4914 
R1T4915 
R1T4916 
R1T4917 
R1T491B 
R1T4919 
R1T4920 
R1T4921 
R1T4922 
R1T4923 
R1T4924 
R1T4925 
R1T4926 
R1T4927 
R IT 4928 
RIT4929 
R1T4930 
R1T493I 
RIT4932 
R1T4933 
R1T4934 
RIT4935 
RIT4936 
R1T4937 
R1T4938 
R1T4939 
R1T4940 
R1T4941 
R1T4942 
RIT4943 
R1T4944 
RIT4945 
R1T4946 
))/  RIT4947 
R1T4948 
R1T4949 
RIT4950 
RIT4951 
git  4952 
R1T49  5  3 
R1T4954 
R1T4955 
R1T4956 
R1T4957 
R1T4958 
R1T4959 
R1T4960 
R1T4961 
R1T4962 
R1T4963 
R  IT  49  64 
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I  F  {  TF.GF.3.1  OCOFS  -  DLNTIDCL2,  CFP,  X3,  V3  ,  F3.  6,4,  6,4*2) 

C 

GO  70  100 

60  CALL  LNTPC  0F( 1) »  0C1F,  XDF,  FDC1F,  NXF,  4) 

CALL  LNTP ( OF ( l) ,  0C1MF, XOF ,  FDCMXF  »NXF >  4) 

CALL  LNTP ( DF ( 1 ) ,  OCOFS, XOF,  FCDF ,  NXF,  4) 

CALL  LNTP ( DF ( 1 ) »  DCMFS.XDF,  FCNF  *  NXF,  4) 

CALL  LNTPIDFll) ,  CPF,  XOF,  FCPF ,  NXF,  4) 

C 

100  I F(  TS.LE.O.  )  GO  TO  200 
I F (  TS.GE.4.  1  30  TO  150 
C  LEADINE-EDGE  DEVICE  **** 

C 

OS  =  AC0S11.  -  2.+CS0C) 

C1LF  =  2»* ( S INC  OS )  -  OS) 

CMXLE  *  2.*  SIN(OS) 

CNI.E  =  (  1,-CSOC  )*SIN( OSS  *.1LE 

DSR  =  DS/57.2956 

NS  =  TS 

CALL  L  NTP  (ROT,  EMAX,  XROT,  YEHAX(1,NS),  5,2) 

CALL  LNTPtOS,  ED,XXOS,  YE0(1,NS),  4,  2) 

C 

0C1S  =  C1LE  *  DSR 
0C1MS  =  CMXLE  *  FMAX  ♦  ED  *  DSR 
DCOSS  =  0.0 
OCMSS  =  CMLE  *  0C1S 
C 

GO  TO  200 

150  CALL  LNTPiDS,  0C1S,  XDS,  FDC1S,  NXS,  41 
CALL  LNTP ( DS ,  0C1MS.XDS,  FDCNS,  NXS,  4) 

CALL  LNTP ( OS ,  DCOSS, XDS,  FOCDS,  NXS,  41 
CALL  LNTP ( DS,  DCMSS.XDS,  FDMS,  NXS,  4) 

CALL  LNTPIDS,  CPS,  XDS,  FCPS,  NXS,  4) 

C 

200  I F (  KPRINTI 271.EQ.1  1  HR  I TE ( 6, 1000)  OCIF,  DC  IMF ,  DCDFS,  0CMF5, 

1  DC1S,  OC IMS,  DCDSS,  DCMSS,  CPF,  CPS,  DCL,  ETA,  CIO, 

2  DCLM,  RMAX,  ZKMAX,  OCM,  RCM,  2 KM ,  C1LE,  CMXLE,  EMAX, 

3  ED,  TF,  TS,  DF,  DS,  CFOC,  CSX,  OTE,  ROT 
C 

1000  FORMAT ( 5X,  *SSET  DUMP*  /(5X,  7F15.5)  ) 

C 

RETURN 

FNO 


R IT 4965 
R1T4966 
R  IT  49  67 
R1T 4968 
R1T4969 
R IT 49 70 
R IT 49 71 
R1T4972 
R1T4973 
R1T4974 
R1T4975 
RIT4976 
R1T4977 
R1T4978 
R1T4979 
R 1 T 49  80 
R1T498L 
R1T4982 
R1T4983 
R1T4984 
R 1 T 498  5 
R1T4986 
R1T4987 
R1T4F88 
R1T4989 
R*T4990 
R1T4991 
R1T4992 
R1T4993 
R1T4994 
R1T4995 
R IT 4996 
R1T4997 
R1T4998 
R1T4999 
R1T5000 
R1T5001 
R1T5002 
R IT 5003 
R1T5004 
RIT5005 
R1T5006 
R1T5007 


CC  *  00155 
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non  noon  n  no  no  n  o  n  non 


SUBROUTINE  DSET10F  8F0 «  8SI«  BSD.  CFI 

AERODYNAMIC  CONTROL  ROUTINE  FOR  HIGH  LIFT  SYSTEMS 

COMMON  /BLKC02/  DC'-OF,  OCLOS,  DCLNF,  DCLMS,  DJDMIN,  DCLF,  DCLS, 

1  SPLANX*  DCMO,  DCMCL,  RCLA 

COMMON  /BLKCOl/  Clllll.  AK,  DCL.  C2I64),  DC1F,  DC1MF,  DCDFS, 

I  DCHFS*DC10S»DC1MS»DCDSS,DCHS5,CPF,CPS,C3(13I 

COMMON  /BLKG01/  GH 200) 

COMMON  /BLKMX3/  SPANI6),  YTPR14),  FKBI  6,4),  FKSI6),  f  KD (  6,4) 
COMMON  /BLKMX9/  SPAN4I 5 1  * YBF III  5J ,  FKA15,5>. 

1  SP AN5 15),  YBF 12(3)  •  F  KF I  5  *  3 ) 

ZKT  -  1.0 
SWPLE  *  Gl( 103) 

SWPMC  *  G1C  49) 

T PR  *  GI( 81 ) 

AR  »  Gli 80) 

SPLAN  *  SI ( 82) 

OCLS  *  0.0 

ZKBI  *  DLNT1BFI,  TPR,  SPAf4,  YTPR.  FKB  *  6,4,  6,2,2) 

ZKBO  «  DLNTIBFO,  TPR,  SPAN,  YTPR,  FKB  *  6,4,  6,2,2) 

ZKB  *  ZKBO  -  ZKBI 

ASC  *  SORT II.  -  U.-CF)**1.61  ) 

ZKC  *  I.  ♦  1.875  *  ( l.-ASC)**2  /AR 

CALL  LNTPIBSI.  ZKSI,  SPAN,  FKS,  6,  4) 

CALL  LNTPIBSO,  ZKSO,  SPAN,  FKS,  6,  4) 

ZKS  -  ZKSO  -  ZKSI 


SPLANX  *  SPLAN  *  «1.  ♦  I CPF-i. ) /I 1.4TPR )  •  12. -II. -TPR! 

1  *(,  BFO  *  BFIJ)  *IBFO  -  BFI ) 

2  ♦  ICPS-l.I/l  l.+TPR)  *  12. -II. —TPR 1*1 BSO-BS I ) ) 

3  *  IBSO  -  BSI )  '  ) 

20  CLOCl  *  AR/ 1 2.  ♦  SQRTI4.*  I SPLAN  *  AR/SPLAMX  /COS I SMPNC) 1 **2)  1 
CLOCIR  =  AR/12.4  SO R T 1 4 . ♦  1 AR /COSI SVPHC > ) **Z  )  ) 

RCLA  =  CLOC1/CLOC1R 


OCLOF 

CCLMF 


ZKT  *  DC  IF  *  CLOCl  *  ZKC  *  ZKB 
ZKT  *  OCIMF  *  CLOCl  *  ZKC  *  ZKS  * 


COSI 3WFSC i 


OCLOS  *  DCIOS  *  CLOCl  *  ZKS 

DCLMS  *  DC  IMS  *  CLOCl  *  ZKS  *  COSI  SWPLE) 


30  HRITFI6, 1000)  ZKB,  ZKC,  ZKS,  CLOCl,  DC1F,  0C1MF,  DCIOS, 

1  DC IMS ,  OCLOS,  OCLOF 

CALCULATION  OF  DRAG  PARAMETERS 

SWPHL  -  A TAN I  TAN ( SWPLE )  -  4./AR  *  { 1 .-TPR ) / I l .+TPR )  *  11. -CF)  ) 


R1T5009 

R1T5010 

R1T5011 

R1T5012 

R1T5013 

R1T5014 

R1T  5015 

R1T5016 

R IT 50 17 

R1T  50 18 

R1T5019 

R1T5020 

R  IT  50  2 1 

R1T5022 

R1T5023 

R1T  5024 

R1T5025 

R1T5026 

R1T5027 

R  IT  50  28 

R11 5029 

R1T5030 

R1T5031 

R1T50  32 

R  IT  50  33 

R1T50  34 

R1T503S 

RIT5036 

R1T5037 

K1T5038 

R  IT  50  39 

R IT 5040 

R  IT 5041 

R1T5042 

R IT 5043 

R IT 5044 

R  IT  5045 

R1TS046 

R IT 5047 

R  IT  50  48 

R IT 5049 

R1T5050 

R1T5051 

R1T5052 

R1T505  3 

R IT 5054 

R1T5055 

RIT505* 

R1T505 

« IT 5058 

R1T5059 

R IV 5060 

R1T5061 

R1T5062 

R1T5063 

R  lT  5064 
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c 


c 


c 


c 

c 

r. 


c 


c 


r 


c 


ZKDI  -  OLNTIBFI ,  TPR*  SPAN*  VTPR *  FKD,  6,  4.  6*  2*2) 

ZKDO  *  OLNTJBFO,  TPR,  SPAN,  YTPR *  FKO,  6,  4,  6,  2,2) 

ZKD  *  ZKOO  -  ZKO 1 

40  CONTINUE 

E  »  AR/6.2B3 

D  «  SFO 


ZKA  «  DLNTIE,  BFI,SPAN4,  YBFI1.FKA,  5,  5,  5,  4,  2  ) 
ZKF  *  DINT ( 0,  BFI, SPANS.  YBFI2.FKF,  5,  3,  5,  2,  2  ) 


45  MR  I TE  C  6, 1001 )  SMPHL,  ZKD,  ZKA,  ZKF,  CDO,  SMPLE • 
EK  «  0.31831/AR/AK 


AR,  TPR,  AK, 


50  CONTINUE 

DCLF  «  ( l.-EK )  *  DCLOF/I l.+l„ 16+CL0C1 *( .5-CF)  ) 

COC  •  0.0 

IF  I  EK.LT.1.0  )  COC  -  C0CLF**2  ♦  2. *OCLF»OC L ) *0.31831/ 

1  (AR  *  ! l.-EK) ) 

OCOF  «  OCOFS  *  CCS(SWPHL)  *  ZKD 

OCOS  «  OCOSS  *  COS(SWPLE)  *  ZKO 

CDI  «  ZKA  *  ZKF  *  DC L OF** 2  *0.31831/AR 

OCDMIN  *  OCOF  ♦  OCOS  ♦  COI  ♦  COC 

WRITF (6, 1002)  OCONIN,  COI ,  OCOS,  OCOF,  DCL ,  DCLF,  COC 


60  RETURN 

1000  FORMAT (1H1,  10X,  *HIGH  LIFT  CONSTANTS*.  //  10X 

1  *ZKB  **  FI 0.6,  10X  *ZKC  -*  F10.6,  10X  *ZKS  »* 

2  F10.6  /  10X  *CL<X1»*  F10.6,  10X  *0C1F  -*  F10.6, 

3  10X  *OClMr«*  F 10.6  /  10X  *OC10S«*  F10.6,  10X 

4  *DC1MS  ■*  FlO.o,  10X 

6  *DCL0S»*  F 1  <;.6  /10X  *DCLOF»*  F10.6  ) 

1001  FORMAT!  ///  10X  *SNPHL-*  F10.6,  10X  *ZKD  •*  F10.6, 

1  IOX  *ZKA  **  F10.6  /  10X  *ZKF  -*  F10.6,  I0X 

2  *CDO  «*  F10.6,  iOX  *SWPLE«*  F10.-6  /  10X 

3  * AR  «*  F10.6,  IOX  *TPR  ■  *  F10.6,  1 ^X 

4  *4K  «*  F10.6  /IOX  *DCL  »*  F10.6  ) 

1002  FORMAT!  ///IOX,  *OCOM IN  ■*  F10.6,  IOX  *CDI  »*  F10.6,  IOX 

1  *OCOS  «*  F10.6  /IOX  *OCDF  «•  FiO»6,  10* 

2  *DCL  »*  F10.6,  IOX  *DCLF  «*  F10.6  /IOX  *COC  -*F10.6  ) 

1003  FORMAT  I6FI0.6) 

END 


DCL 


R1T5065 
R1T5066 
R1T506T 
R1T5068 
R IT 5069 
R  IT  50  TO 
RIT5071 
R1T50  72 
HIT 50 73 
R1T5074 
R1T5075 
R  IT  50  76 
R1T5077 
R IT 5078 
R1T5079 
R1T5080 
R1T5081 
R IT  5082 
R1T5083 
R1T5084 
R1T5085 
R1T5086 
R1T5087 
R1T5088 
R1T5089 
R1T5090 
R IT 5091 
R1T5092 
R  IT  5093 
RIT5094 
R  IT  50  95 
R1T5096 
R1T5097 
R1T5098 
R1T5099 
R1T5100 
R1T5101 
R1T5102 
R1T5103 
R1T5104 
R1T5105 
R1T5106 
R1T5107 
RiTSiOB 
R1T5109 
R1T5110 
R1T5111 


CC  «  00103 
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r>  n  o  o  rt  o  o  r>r>o  ri  r>  r»  o  o 


SUBROUTINE  MSETIBFI,  BFO ,  BSI.  BSO  I 

COMPUTES  MOMENT  SHIFT  OUE  TO  FLAPS  AND  SLATS  AT  CL  ■  0 

COMMON  /BLKC02/  DCLOF,  DCLCS,  OCLMF.  DCLMS*  DCDMIN,  DCLF,  OCLS, 
1  SPLANX.  OCMOt  DCMCLt  RCLA 

COMMON  /BLKCOI/  CK7T),  0C1F,  OCIMF,  OCDFS,  OCMFS, 

1  DC  IS*  DC  IMS*  DCOSS,  DCMSS,  CPF.  CPS.  C2I13I 

COMMON  /BLKGOI/  G1I200) 

COMMON/ BLK MX 7/  SPAN2I11).  VTPR2I  51.  FKSH(11,5) 

COMMON/ BLKMX8/  SPANS! 6) «  YTPR3I4I,  FKMI6.4) 

TPR  -  G 1 ( 81) 

AR  »  G1 ( 80) 

SWPMC  »  GH  49) 

CMCL  «  Cl! 15) 

CLA  «  Cl! 17) 

ALO  >  Cl ! 18) 

FLAP  CALCULATIONS  START  HERE 

OCMAF  -  0.0 
OCMCLF  -  0.0 

IF!  DCKFS.E0.0.0.AND.DC1F.EG.0.C.AND.CPF.EQ. 0.0  I  GO  TO  40 

ZKSWI-  DLNT ( BFI ,  TPR.  SPAN2.  VTFR2,  FKSW,  11.  5,  11,  2,  2) 
ZKSWO-  DL NT ( BFO,  TPR,  SPAN2,  YTPR2,  FKSW •  11.  5,  11,  2,  2) 

ZKSN  *  ZKSUO  -  ZKSWI 

ZKMG  *  OLNT  ! BFO,  TPR.  SPAN3,  YTPR3,  FKM,  6.  4,  6,  2,  2) 

ZKMI  *  OLNT  IBFI,  TPR,  SPAN 3,  YTPR3.  FKM,  6.  4,  6,  2,  2) 

ZKM  -  ZKKQ  -  ZKMI 

OCMAF  -  OCMFS  *  CPF**2  *  ZKM  ♦  0.5  *  AR  *  TANISWPMC) 

1  *  DC  IF  *  ZKSW 

OCMCLF  -  1-0.25  *  CPF  *!CPF-1.1  ♦  CMCL  *  ICPF**2-1 . I ) *  ZKM 
40  CONTINUE 

SLAT  CALCULATIONS  START  HERE 


r. 


c 


c 


OCMAS  «  0.0 
OCMCLS  ■  0.0 

IF!  DCMSS .EO. 0.0. ANO. DC  IS. E 0.0.0. ANO. CPS. EQ. 0.0  i  GO  TC  50 
ZKMSU  *  OLNT 1 BSO.  TPR.  SPAN3,  YTPR3,  FKM,  6,  4,  6,  2,  21 
ZKMSI  *  DLNT (BSI,  TPR,  SPAN3,  YTPR3,  FKM,  6,  4,  6,  2.  2) 
ZKMS  -  ZKMSO  -  ZKMSI 


ZKSWSO  »  DLNT! BSO,  TPR,  SPAN2,  YTPR2,  FKSW,  11,  5,  11,  2,  2) 
ZKSHSI  *  DLNT! BSI ,  TPR,  SPAN2 ,  YTPR2,  FKSW,  11,  5,  11,  2,  2) 
ZKSWS  -  ZKSWSO  -  ZKSWSI 


DCMAS  »  DCMSS  *  CPS**2  *  ZKMS  ♦  0.5  *  AR  *  TANISWPMC) 
1  *  0C1S  *  ZKSWS 


R1T5113 

R1T5114 

RXT5115 

R1T51L6 

R1T5117 

R1T5118 

RIT5119 

R1T5120 

RIT5121 

R1T5122 

R1T5123 

R1T5124 

R1T5125 

R IT  5126 

R1T5127 

R1T5128 

RIT5129 

R IT 5 130 

R1T5131 

RIT5132 

R1T5133 

R IT  51 34 

R1T5135 

R1T5136 

R1T5137 

R1T5138 

R1T5139 

R1T5140 

R1T5141 

R1T5142 

R IT  5143 

R IT  5144 

R IT 5 145 

R1T5146 

R1T5147 

R1T5148 

R1T5149 

R1T5150 

R1T5151 

R1T5152 

RIT5153 

R1T5154 

R1T5155 

R1T5156 

R1T5157 

R1T5158 

R1T5159 

R1T5160 

R1T5161 

R1T5162 

R1T5163 

R1T5164 

R1T5145 

R1T5166 

RIT5147 

R1T5168 
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OCMCL S  *  (-0.25  *  CPS  *(CPS-1.I  ♦  CMCL  *  ICPS**2-1.) 1*  ZKMS  R1T51&9 

R1T5170 
R1T5171 

ADO  FLAP  AND  SLaT  MCwENTS  R1T5172 

R1T5173 

50  OCHA  «  DCM  AF  ♦  DC MAS  R1T5174 

OCMCL  *  DCMCLF  ♦  OCMCL $  R1T5175 

R1T5176 

CLO  *  -CLA  *  ALO  R1T5177 

OC MO  *  DCM A  -  CMCL  *  (OCLOF  ♦  OCLOSI  -  CMCL  *  (CLO+DCLOF+DCLOS I  R1T5178 

R1T5179 
R1T5180 

WRITE (6, 10011  DCM AF v  DCMAS,  DCMO  R1T518L 

C  R1T5182 

1001  FORMAT (///!OX«*OCMOF  -  *F 10.6/10X,*DCM0S  •  *F10.6/  R1T5183 

1  10X,  *OCMO  «  *  F 10. 6)  R1T5184 

RETURN  R1T5185 

END  R1T5186 

CC  -  00074 


> 


SUBROUTINE  OAERO(ALPHA,  CL,  CD,  CM,  AGRD,  CLG,  CDG,  CMC,  H,  DEI 

COMPUTES  LIFT  MOMENT  AND  DRAG  FOR  HIGH-LIFT  SYSTEMS  IN 
FREE  AIR  OR  GROUND  EFFECT 

COMMON  /BLKC02/  DCLOF ,  DCLOS,  OCLMF,  DCLMS,  OCDMIN,  DCLF,  DCLS, 
I  SPLANX,  DCMO,  DCMCL  ,  RC  LA 

COMMON  / BLKGOl/  GLI200) 

COMMON  /BLK A 02/  AIJ433) 

COMMON  /BLKA03/  403(121,  CMAC,  A03A(7) 

COMMON  /BLKA04/  AZ(66),  BFl  C,  A3(4),  BF20,  A4(9) 

COMMON  /BLKC01/  Cl(4),  CDMINB,  C2(6),  FK,  DELCL,  CMO,  CMCL, 

L  X  ACMB,  CLA,  ALO,  C3(19),  CDWING(A),  C7(12>, 

1  CLAN,  CLAN,  CLAT,  AH,  BH,  HSTAR, 

2  C4( 51 ,  CLMAXB,  ABRK  ,  AMAX,  DAMAX, 

3  C5(25),  OEDA,  C6(6) 

DIMENSION  X0XI6),  YAI6),  YBC6I,  XIR{6),  YAR(4),  Zl(6,4), 

1  XBF(6),  22(6) 

DATA  XDX  /  -1.,  -.6,  -.2,  .2,  .6,  l.  /, 

I  YA  /  —3. 7 l ,— 3. 03,-2.63,— 2.34,-2.13,— 2.  /, 

1  YB  /  .466,. 5,. 664,. 901,1.1,1.171  / 

FIG.S  4.7.1-18ACB  IN  OATCOM 


DATA 

XTP 

/  1  •  f  2m  9  3  •  f  4«  1  5#  f  6a  /  f 

1 

YAR  /  4.  ,  6.  ,  8.,  10.  /, 

2 

3 

4 

21 

/  .825,.  772,.  745,.  726,.  715,  .712,  .855  ,.772  ,.738  ,.715  , 
.7,  .695,  .10,. 7 75, .727, .702, .69, .685, 

.095, .776, .723, .697, .68, .675  /, 

5 

XBF 

/  0.,  .2,  .4,  .6,  •  8 ,  1.  /, 

6 

22 

/  0.,  .34,  .58,  .76,  .89,  i.  / 

SPLAN 

Gl (82 ) 

AR 

X 

Gl (801 

TR 

2 

Gl( 81) 

CCDLG 

* 

C5 (21  I 

ESWOC 

Jt 

Gl (1021 

□MEGA 

X 

Gl(llO) 

XH 

X 

Gi  (109) 

CLO 

X 

-CLA*ALO  «•  DCLOF  ♦  DCLOS 

CLMAX 

X 

CLMAXB  •»■  DCLMF  ♦  DCLMS 

CLAHL 

8 

CLAN  «-  CLAT  «•  CLAM  *  RC L A 

AK 

8 

FK  -  S PLAN/S  PL ANX 

OCL 

8 

DELCL  *■  OCLF  ♦  DCLS 

COM  IN 

■Ji 

CDMINB  ♦  DCDMIN  DCOLG 

ALIN 

= 

(CLMAX  -  CLOl/CLAHl  -  DAMAX 

CL 

8 

CLAHL  *  AL»HA  ♦  CLO 

IF (  ALPHA. LE. ALIN  )  GO  TO  20 

OELM  *  CLAHL  *  (ALIN  ♦  2.»  DAMAX)  *■  CLO  -  CLMAX 
DEL  -((ALPHA  -  ALIN)  *0.  5/DAMAX  )**2  *  DELM 


R 1T5188 
R1T5189 
R  1T5190 
R ITS  19 l 
RIT5192 
R 1T5193 
R1T5194 
P 1T5195 
R 1T5196 
R1T5197 
R IT5198 
R1TS199 
R 1 1 5200 
R IT  5201 
RIT5202 
R1T5203 
R  IT  5204 
R1 T5205 
R IT  5206 
R1I  5207 
R1T5208 
R IT  5209 
RiT  52 10 
R1T5211 
R1T5212 
R1T5213 
R1T5214 
RIT  52 15 
R1T5216 
R IT  52 1 7 
RIT  5218 
R1T5219 
RIT  5220 
R1T5221 
R IT  5222 
R IT  5223 
R1T5224 
R IT  5225 
R1T5226 
R1T5227 
R  IT  5228 
R1T5229 
R 1TZ230 
R1T5231 
R1T5232 
R1T5233 
RIT5234 
R1T5235 
P IT5236 
R1T5237 
R 1T5238 
RIT  5239 
RIT  5240 
R IT  5241 
R IT  5242 
R1T5243 
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CL  =  CL  -  DEL 

C 

20  CD  *  CDMIN  +  AK*(CL  -  DCL)**2 
l  F  (  ALPHA. LE.AL  IN  )  GO  TO  30 
C 

ED  *  0.  318-31/AR/AK 

E  =  EO  ♦  (0.3  -  ED)  *  0.5  *  (ALPHA  -  AL'INJ/OAHAX 

IF  I  E.LE.0.0  )  E  =  0.1 

CD  =  CDMIN  +  0.  31B31/AR/E  *  (CL  -  DCL)**2 

C 

30  CMOTOT  =  CM 0  «•  DCMO 
OCMDCL  =  CM CL  ♦  DCMCL 
CLTAIL  =  CLAT  *  ( AL PH A-HST AR ) 

CL WB  =  CL  -  CLTAIL 

CM  =  CMOTOT  ♦  DCMDCL  *  CLWB 

1  -CLTAIL  *  XH  *  CaS(Of'EGA  -  ALPHA/57 .3 1/CMAC 

GROUND  EFFECTS  ARE  NOW  CALCULATED 

DCLWG  =0.0 
DCLTG  *  0.0 
DCMWG  =0.0 
DCMTG  =  0.0 
DCDG  =0.0 
AGRD  =  ALPHA 

OMEGA  =  Gl(llO) 

BQ2  =  All  240) 

DX08  =  Gl(106) 

CROB  *  GI (1051 

HTZ  *  A  1  (  43 2) 

C 

IF  I  H.EQ.0.0  )  GO  TO  50 

CDWNG  =  CDWINGI  1)  *  COWING!  2 )  ♦  CDWINGI3J  ♦  CD  -  CDMI N 
’  CALL  LNTPIDXOB,  A,  XDX.  V A,  6,  4) 

CALL  LNTPIDXOB,  B,  XDX,  YB ,  6,  4) 

SIGP  =  2.71828  **(  A  *  (H/B02)**B  » 

HOC  =  H/(CR0B*8Q2)  *S't).  5 

A2D  =  9.1189  ♦  CL  / (CUS I ESWQC ) ** 2 ) 

DLOLO  =  0.058/(HUC**1.7)  -0.0085/HOC  *  A20 

I F (  HOC  .LT. 0.4  )  DLOLO  =  DLOLO  -  0.  02/CHDC**2)  *■  0.05/H0C 
C 

DDCLF  =  -.142  «-.22  72*H0C  - .0902*HQC**2 
C 

SIG  =  2.71828  **1-2.48  *  l H/ BOZ ) **. 768 ) 

C 

R  =  SQRT(l.  ♦(  H/B02)**2  )  -  H/B02 

T  =  0.03979  *  HOC  / (H0C**2  -  .015625) 

DCLWG  =  (9.12/AR  *7.  16*CR0BJ  *  CLWB  *  CLAW  *  SIGP  *  RCLA 

1  *  0.5  *  AR  *  CROB  *  DLOLO  *  R  *  CLWB 

2  *  OOCLF  *  iDF/50. 1**2 
C 

DCDG l  =  -SIG  *  0.31831* CL W 8**2/ A R 
DCDG  =  0CDG1  -(  CO  WNG  *  DC0G1)  *R  *T  *CLWB 
C 

C  GROUND  EFFECTS  ON  HORIZONTAL  TAIL  ARE  CALCULATED 


P1T5244 

R1T5245 

R IT  5246 

R1T5247 

R1T5248 

R IT  5249 

fl 1 T  5250 

R IT  5251 

R1T5252 

R1T5253 

R1T525A 

RLT5255 

R 1T5256 

R1T5257 

R1TS258 

R IT  5259 

RIT5260 

R1T5261 

R IT  5262 

R1T5263 

R IT  5264 

R1T5265 

RIT5266 

P IT  5267 

R1T52671 

R1T5268 

RIT5Z69 

R1T5270 

R IT  52  71 

R IT  527  2 

R1T5273 

R  IT  52  74 

R1T5275 

R IT5276 

RIT5277 

R1T5278 

R1T5279 

R1T5280 

R IT  5281 

R IT  5262 

P1T5282I 

R1T5283 

R1T5284 

RIT5285 

R 1T5Z86 

DITt^o1, 

.  I  v  t  U  I 

RIT5288 
R  IT  5289 
RIT5290 
R1T5291 
R IT  5292 
PIT5293 
P IT  5294 
R1T5295 
RIT5296 
R  IT 5297 
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IF(  CLAT.EC.O.Q  )  GO  TO  40 
TRIV  =  6. 

IF(  TR.NE.0.0  >  TRtV  *  l./TR 

BPWOa  =  OL  NT(  TR I  V  t  AR,  XTR,  YAR,  Z1  ,  6,4,  6,  4,2J 
BF  *  BF1 0 

IF<  QF2Q.Gr.SF  )  BF  *  BF20 

CALL  L  NTP  ( B F,  BFOBWP,  XBF,  12,  6,  4) 

SPAN  =  802  *2,  ** 

BWP  *  RPWQB  *  SPAN 

BF P  =  BWP  *  BFOBWP 

BEFF  =  BWP 

IF(  BFP.Nfc.0.0  »  BEFF  =  CLO/HCLO  -QCLOF}  /Bwt'-'  4  OCLOF/BFP) 

HH  *  (H  ^  HTZI*CQSIALPHA/57.3  )  -  XH*S  1NJ  ALPHA/*7.3> 

OE  =  OEOA  *  ALPHA  *  (BEFF**2  4  l  HH-H  >**2 1  /(  BEFF**2  4  (HH+K) 

DCLTG  =  OE  *  CLAT/U.-DEDA) 

40  AGRD  *  ALPHA  -(  DCLWG  *OCL  TG 1 /CL AHL 


DCMWG 

OCMTG 


50  CLG 
CMC 

1 

COG 


*  DCMDCl  *  DCLWG 

*  -DCLTG  *  XH  *  COSiOMEGA  -AGRD/57. 29561 

=  CLWB  4  CLAT  -MAGRO-HSTARJ  4  DCLTG 
=  CMQTOT  4  OCMDCL  *  CLWB 

-  i  CLG-C  L  HBI  *  XH  *COS(CMEGA  -'AGRC/57.2956  1 

*  CD  ♦  OCDG 


RETURN 

END 


R1T5298 
R IT  5299 
R1T5300 
R 1 T  5301 
R IT  5302 
R1T5303 
R 1T5304 
R1T5305 
R  l  T  5306 
R 1T5307 
RIT  5308 
R1T5309 
R IT  5310 
R1T5311 
R IT  5312 
R1T5313 
RIT5314 
R2T5315 
**2)  P.1T5316 
R1T5317 
R 1T5318 
RIT5319 
R IT  5320 
R1T5321 
R1TS322 
R IT  5323 
R1T5324 
R1T5325 
R1T5325] 
RIT5326 
R  1T5327 
R IT  5328 
RIT  532  9 


CC  =  00145 
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COC  6600  FTN  V3.0-P351  OPT»l 


06/2 


SUBROUTINE 


ATHOS  TRACT 

SUBROUTINE  ATHOS  (ZFT,  TH,  SIGMA,  RHO,  THETA,  DELTA,  CA,  AMU,  K) 
THIS  IS  A  SUBROUTINE  TO  COMPUTE  CERTAIN  ELEMENTS  OF  THE  196? 

U.S.  STANDARD  ATMOSPHERE  UP  TO  90  KILOMETERS. 

#*♦*****♦*#* ♦  **■*■»  ******  a********.****#**********  *»*  * 


THIS  MODEL  REPRESENTS  MEAN  ANNUAL,  MIO-LATITUOE,  DRY  AIR 
CONDITIONS.  DATA  ON  LATITUDINAL  AND  SEASONAL  VARIATIONS  ARE 
AVAILABLE  FROM  THE  OFFICE  OF  THE  STAFF  METEOROLOGIST  (ASD/NE). 

CARE  MUST  BC  EXERCISED  MHEN  USING  THIS  AND  OTHER  MODELS  FOR 
ENGINEERING  PURPOSES  AND  IT  IS  STRONGLY  URGED  THAT  USERS  CONTACT 
ASO/NE  FOR  INTERPRETATION  AND  ASSISTANCE. 

**  »**»•»•***•**«.*****•***  *******  4*4* 

t 

CALLING  sequence... 

CALL  ATMOS  (ZFT,  TM,  SIGMA,  RHO,  THETA,  DELTA,  CA,  AMU,  K) 

ZFT  a  GEOMETRIC  ALTITUDE  (FEET) 

TM  a  MOLECULAR  SCALE  TEMPERATURE  (DEGREES  RANKINE) 

SIGMA  =  RATIO  OF  DENSITY  TO  THAT  AT  SEA  LEVEL 
RHO  «  DENSITY  <LB-SEC**2*FT** (-4)  OR  SLUGS-FT**3> 
THETA  *  jRATIO  OF  TEMPERATURE  TO  THAT  A7  SEA  LEVEL 
DELTA  a  RATIO  OF  PRESSURE  TO  THAT  AT  SEA  LEVEL 

CA  «  SPEEO  OF  SOUNO  (FT/SEC) 

AMU  a  VISCOSITY  COEFFICIENT  (LB~SEC/FT**2> 

K  *  i  NORMAL 

s  2  ALTITUDE  LESS  THAN  -5000  METERS  OR  GREATER  THAN  90  KM 
a  3  FLOATING  POINT  OVERFLON 

ALL  DATA  AND  FUNDAMENTAL  CONSTANTS  ARE  IN  THE  METRIC  STSTEM  AS 
THESE  QUANTITIES  ARE  DEFINED  AS  EXACT  IN  THIS  SYSTEM. 

THE  RADIUS  OF  THE  EARTH  (REFT59)  IS  THE  VALUE  ASSOCIATED  NITH  THE 
1959  A  ROC  ATMOSPHERE  SO  THAT  PROGRAMS  CURRENTLY  USING  THE  LIBRARY 
ROUT  IN 5  MILL  NOT  REQUIRE  ALTERATION  TO  USE  1HIS  ROUTINE. 

DIMENSION  HB(IO) ,TH8(10> ,DELTA0(1O> ,ALM<10> ,ARAY(10,4) 

EQUI VALENC£(ARAY(1,1),HB> ,(ARAY<1,2> ,TMB) , <ARAY (1 ,31 , DELTAS) , 

*  (AFAY (1,4) ,ALH) 


DATA 

<  CARAYII, J) ,J»1 

,4) ,1*1, 

10)  / 

X 

*-5. 0  , 

320.65 

9 

1.75363 

E  DO 

9 

-6.5 

f 

X 

0.5  , 

coo . 15 

9 

1.00000 

E  DO 

9 

-6.5 

f 

X 

11. 0  , 

216.65 

9 

2.23361 

E-01 

9 

0.0 

9 

X 

20.  0  , 

216.65 

t 

5.40328 

E-02 

9 

1.0 

9 

X 

32. 0  , 

220.65 

t 

C.  56663 

E-03 

9 

2.8 

9 

X 

47.  0  , 

270.65 

9 

1.09455 

E-03 

9 

0.0 

9 

X 

52. 0  , 

270.65 

9 

5.82289 

E-04 

9 

-2.0 

9 

X 

61.0  , 

252.65 

9 

1.79718 

E-04 

9 

-4.0 

9 

X 

79. 0  , 

180.6 

9 

1.02410 

E-05 

9 

0.0 

9 

X 

88. 743  , 

180.65 

9 

1.62230 

E-06 

f 

0.0 

/ 

DATA 

REFT59/2. 0  85553 IE  07/, 

GZ 

/9c 8 0665/ , 

A 

AMZ  Z28.9644 

t  t 

RSTAR  /S. 31432/, 

B 

FTT0KH/3.048E- 

04  /f 

S 

/110. 4 

/* 
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CS 

CS 

CS 

CS 

CS 

CS 

CS 

CS: 

CS: 

CS: 

CS: 

CS: 

CS: 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

csi: 

CSl, 

CSl 

CSl 

CSl 

Csi 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 

CSl 
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BROUTINE  ATMOS 


TRACE 


COC  6600  FTN  V3.0-P351  OPT«t  06/22 


C  A MUZ  /1.2024E-05  /,  CAZ  / 1116.45/,  CS1 

0  RHOZ  /O. 076474  /,  GZENG  /32.1741/  CS1 

C  CONVERT  GEOMETRIC  ALTITUDE  TO  GEOPOTENTIAL  ALTITUDE  CS1 

HFT  =  (  REFT59/ (REFT59+ZFT) >  *ZFT  CS1 

C  CONVERT  HFT  AND  ZFT  TO  KILOMETERS  CS1 

Z  «  FTTOKM'ZFT  CS1 

H  *  FTTOKH'HFT  CS1 

K  *  1  CS1 

TMZ  *  TMB  (  2)  CS1 

IF  (H.LT.-5.0.0R.Z.GT.90.0)  GO  TO  16  CS1 

DO  10  H=l, 10  CS1 

IF  (H-HB(M))  lit  12, 10  CS1 

10  CONTINUE  CS1 

GO  TO  16  CS1 

11  M  *  N-l  CS1 

12  DELH  *  H-H8(M1  CS1 

IF  (ALH(M) .EQ.0.01  GO  TO  13  CS1 

TMK  *  TMB IN) +ALH (M)#DELH  CS1 

C  GRADIENT  IS  NON  ZERO,  PAGE  10,  EQUATION  I.2.10-(3)  CS1 

DELTA  *  DELTAS (N) * ( (TMB(H) /TMK) ** (GZ*AHI/ [RSTAR* ALM (M  )  )  )  )  CS1 

GO  TO  14  CS1 

13  TMK  a  THB(M)  CS1 

C  GRADIENT  IS  ZERO,  PAGE  10,  EQUATION  I.2.10-<4»  CS1 

DELTA  a  OELTAB(H)*EXP(-GZ*AHZJ’OELH/(RSTAR*THB(M>>)  CS1 

14  THETA  *  TMK/THZ  CS1 

SIGMA  *  OELTA/THETA  CS1 

ALPHA  »  SQRT(THETA**3)M (TMZ*S > / ( TNK+S) )  CSl 

C  CONVERSION  TO  ENGLISH  UNITS  CSl 

TM  «  l.B*TNK  CSl 

RHO  a  RHOZ *SIGHA /GZENG  CSl 

CA  »  CAZ*SQRT (THETA)  CSl 

AMU  a  AHUZ*ALPHA/GZENG  CSl 

CALL  OVERFL(J)  CSl 

GO  TO  (15,17),  J  CSl 

15  K  «  K+2  CSl 

GO  TO  17  CSl 

16  <  a  2  CSl 

17  RETURN  CSl 

END  CSl 


oooooooooooooooooooooooooooooooonoooooooooorjooooooooo 


UBROUTINE  PLSQ 


TRACE 


COC  6600  FTN  V3.0-P351  OPT*t  06/22 


SUBROUTINE  PLSQ(X,Y,N,K,C,LIST, ENAX, ERHS,EHEQI  CS1 

CS1 

PLSQ  POLYNOMIAL  LEAST  SQUARE  CURVE  FIT  CS1 

CS1 

CS1 

PLSQ  MILL  FIT  A  GIVEN  SET  OF  OATA  TO  A  __  CS1 

POLYNOMIAL  OF  DEGREE  K  OF  THE  FORM...  CS1 

CS1 

Y=C(K*iJ*C(K)*X+C(K-l>*X*»2+...+C(2>*X*MK-l>*C<  1)*X**K  CSl 

CS1 

PLSQ  THEN  COMPUTES  THE  HAXEHUH  ERROR  AND  ROOT  CSl 

MEAN  SQUARE  ERROR  OBTAINED  BY  USING  THE  C  CSl 

COEFFICIENTS  TO  RE-COMPUTE  Y  FROM  X  CSl 

CSl 

USAGE...  CSl 

CSl 

DIMENSION  X(  N)  »  YCN),  C(L>  CSl 

WHERE  L  IS  K«1  CSl 

CALL  PLSQ(X, Y, N, K,C,LIST ,EMAX,ERHS. EHEQ)  CSl 

CSl 

WHERE,  CSl 

CSl 

X  IS  THE  ARRAY  OF  N  INDEPENDENT  VARIABLES  CSl 

CSl 

Y  IS  THE  ARRAY  OF  N  DEPENDENT  VARIABLES  CSl 

CSl 

N  IS  THE  NUMBER  OF  INDEPENDENT (DEPENDENT )  CSl 

VARIABLES  CSl 

CSl 

K  IS  THE  DEGREE  OF  THE  LEAST  SQUARES  POLYNOMIAL  CSl 

CSl 

C  IS  THE' ARRAY  OF  THE  COEFFICIENTS, HIGH  OROER  CSl 

TO  LON  ORDER,  OF  THE  LEAST  SQUARES  POLYNOMIAL  CSl 

CSl 

LIST  -0  SUPPRESSES  THE  ERROR  ANALYSIS  OUTPUT  CSl 

*1  GIVES  THE  ERROR  ANALYSIS  OUTPUT  CSl 

CSl 

EHAX  IS  THE  MAXIMUM  ABSOLUTE  ERROR  OBTAINED  CSl 

BY  USING  THE  COMPUTED  C  COEFFICIENTS  TO  CSl 

APPROXIMATE  THE  OEPENOENT  VARIABLE  CSl 

CSl 

ERMS  IS  THE  ROOT  MEAN  SQUARE  ERROR  OBTAINED  CSl 

BY  USING  THE  COMPUTED  C  COEFFICIENTS  TO  CSl 

~ APPROXIMATE "THE  OEPENOENT  VARIABLE  CSl 

CSl 

EHEQ  IS  THE  MAXIMUM  DEVIATION  FROM  UNITY  CSl 

IN  THE  LINEAR  SYSTEM  CHECK  SOLUTION  CSl 

CSl 

CSl 

PLSQ  CALLS  SUBROUTINES  FXEM  AND  MTXEQ  CSl 

CSl 

PLSQ  USES  1309  CELLS  OF  BLANK  COMMON  CSl 

CSl 

CSl 

COMMON  MTXEQT  (66A) ,  CF,  OIF,  I,  J,  JC .  JK,  CSl 
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|  IUBRQUTI NE  PLSQ  TRACE  COC  6600  FTN  V3.0-P351  OPT*l  06/25 

;  *  L,  LL,  LU,  M,  SUM,  XI,  XM(576>,  CS1 

*  XMAX,  XMIN,  XP,  YC,  YH<48>  CS1 

DIMENSION  X  ( N )  ,  Y(N),  C(24>,  CSl 

*  XOP(48),  XYDPC 241  CS1 

EQUIVALENCE  (MTXEQK 1)  ,XDP(  1)  >  ,  (MTXEQT (97) , XYDP(1 )>  CS1 

DATA  KHAX/  23/  CS1 

C  CS1 

C  CHECK  K  AND  N  FOR  PROPER  RANGE  CS1 

C  CSl 

IF  (K  .GT.  KMAX  .OR.  N  .LE.  K  .OR.  K  .LE.  0)  GO  TO  200  CSl 

L=KF1  CS1 

C  CSl 

C  FIND  MINIMUM  AND  MAXIMUM  VALUES  FOR  X  CSl 

C  CS1 

XH IN=X ( 1)  CSl 

XMAX*X(1>  CSt 

DO  10  1=2, N  CS1 

XMIN  =  AHINKXHINfX(I))  CS1 

'  10  XMAX  =  AMAX1 (X  MAX , X ( I ) )  CS1 

C  CS1 

C  ZERO  DOUBLE  PRECISION  ARRAYS  FOR  SUMMING  CSl', 

C  CS1 

M=2*KM  CS1 

00  20  1=1, M  CS1 

20  XOP(I)  =  0,0  CS1 

00  25  1=1, L  CS1 

25  XYDP(I)  =  0.0  CS1 

C  CS1 

C  TRANSFORM  RANGE  OF  X  TO  (-1,U>  AND  CS1 

C  COMPUTE  SUMS  OF  POHERS  OF  X  AND  SUMS  CSl 

C  OF  Y  TIMES  POHERS  OF  X  CS1 

C  CS1 

Cl  =  2.0  /  (XMAX  -  XMIN)  CS1 

C2  =  (XMAX  ♦  XMIN)  /  (XMAX  -  XMIN)  CS1 

LL  =K  *2  CS1 

LU=2*K*1  CSl 

00  4  0  1  =  1,  N  CS1 

XP  =  1.0  -  CS1 

XI  *  Cl  *  ;<(I)  -  C2  CS1 

DO  30  U=i, L  CS1 

XOP(  J)=XDP(J)+XP  CS1 

XY  OP (J) =XYQPf J) ♦  XP*Y  CD  GS1 

30  XP  =X  P*  X I  CSl 

DO  40  J=LL,LU  <  CSl 

XOP(  J)=X0P(J>+XP  CSl 

40  XP=XP*XI  CSl 

C  CSl 

C  STORE  ABOVE  COMPUTED  SUMS  IN  ARRAY  XM  CSl 

C  AND  COMPUTE  ROM  SUMS  FOR  CHECK  SOLUTION  CSl 

C  CSl 

00  50  1*1, L  CSl 

LL=I*L  CSl 

YM (LL) =0.0  CSl 

LU  =  (I-1)*L  CSl 

JK=I-1  CSl 
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00  5  0  J*1,L 

CS1 

JK=J  K+l 

CS1 

JC=LU*J 

CS1 

XM  <JC)  =XOP<JtO 

CS1 

50 

YM(LL)=YN(LU*XHCJC) 

CSl 

00  6  0  1=1, L 

CS1 

60 

YH (I )=XYOP  tl)  v 

CSl 

C 

CSl 

C 

SOLVE  THE  SYSTEH  XH*C*YH 

CSl 

C 

CSl 

CALL  HTXEOCXM, YH,YH,L,2) 

CSl 

C 

CSl 

C 

Rc. ORDER  ANO  HOVE  SOLUTION  TO  C  AND  FIND 

CSl 

c 

HA  XI  HUH  ERROR  IN  CHECK  SOLUTION 

CSl 

c 

CSl 

EH  EQ  =  0  . 0 

CSl 

00  70  1=1, L 

CSl 

JK*K-I*2 

CSl 

C< JK)*YH(I) 

CSl 

JC*I*L 

CSl 

70 

EHE0=AMAX1 (EHEQ, ABS < YK < JC) - 1 . 0 )  ) 

CSl 

C 

CSl 

c 

ADJUST  COEFFICIENTS  FOR  ORIGINAL  RANGE 

CSl 

c 

OF  X 

CSl 

c 

CSl 

DO  80  1=1 ,  K 

CSl 

00  80  J=1,I 

CSl 

do 

C(J)  =  C«J)  *  Cl 

CSl 

Cl  =  (XMAX  ♦  XHIN1  /  Z.O 

CSl 

00  90  1  =  1 ,  K 

CSl 

H=L-I*i 

CSl 

00  90  J  =  2,H 

CSl 

90 

C(JJ  =  ~C1  *  CCJ-i)  ♦  C1J> 

CSl 

C 

CSl 

C 

INITIATE  PRINT  OF  ERROR  ANALYSIS  IF  LIST  .NE.  0 

CSl 

c 

CSl 

IF  (LIST.EQ. 1)  PRINT  1001 

CSl 

c 

CSl 

c 

CQHPUTt.  HA  XI  NUN  ANO  ROOT  HE  AN  SQUARE  ERRORS 

CSl 

c 

ANO  OUTPUT  ERROR  ANALYSIS  IF  LIST  .NE.  0 

CSl 

c 

CSl 

EH  AX *0.0 

CSl 

SUH=o,  g 

CSl 

00  130  1=1, N 

CSl 

YC  =C  ( U 

CSl 

00  100  J=1,K 

CSl 

100 

YC=YC*X<I)+C(JA1) 

CSl 

01 F*YC-V(II 

CSl 

IF  ( LIST.EQ. 0)  GO  TO  120 

CSl 

IF  <1  . GT.  L)  GO  TO  110 

CSl 

PRINT  1002,  I,  XIII,  Y ( I ) ,  YC,  DIF,  C(I> 

CSl 

GO  TO  120 

CSl 

110 

PRINT  1002,  I,  XII),  mil  YC,  OIF 

CSl 

120 

EHAX*AHAX1(EHAX,A8S(DIF> 1 

CSl 

130 

SUH=SUN*OIF**2 

CSl 
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i 

i 


i 


ER MS *SQRTt SUN/ FLOAT IN) ) 

IF  ( LIST *EQ« 1)  PRINT  1083,  EKAX ,  ERHS,  EMEQ 
RETURN 

GIVE  ERROR  MESSAGE  AND  RETURN  TO 
SVSTEN  VIA  FXEN 

200  PRINT  1000,  N,  K 

CALL  SYSTEM  (200, 1L  ) 

RETURN 

1000  FORMAT  <3M0N«,Il2,3H  K«, I12,29HINCORRECT  FOR  SUBROUTINE  ?LSQ> 

1001  FORMAT  ( 1H1, 20X, 32HPLSQ  POLYNOMIAL  LEAST  SQUARE 
*24HCURVE  FIT  ERROR  ANALYSIS// 

•6HO  I,UX,9HX  -  GIVEN, 11X,9HY  -  GIVEN, 11X, 

*10 HY  -  FITTED, 12 X,5HERROR,16X, 4HB (I) //> 

1002  FORMAT  (1X,I5,SX,5(1PE14.6,6X)  > 

1003  FORMAT  (1H0, 9X, 5HEHAX*, 1PE15.6, 9X,5HERMS*,£15. 6, 
*9X,5HEMEQ*,E15.6> 

END 


CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 

CS1 
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iUBROUTINE  MTXEQ 


TRACE 


COC  6600  FTN  V3.8-P351  QPT«i  06/22 


SUBROUTINE  MTXEQ < A , X , B,N , K)  CS1 

CSi 

MATRIX  EQUATION  SOLVER  (7094  FORTRAN  IV)  CS1 

CS1 

USAGE...  CSi 

CS1 

TO  SOLVE  THE  LINEAR  SYSTEM  AX*B  CSI 

CSi 

CALL  MTXEQ (A,X,B,N,K)  CSI 

CSI 

MHERE  A  MUST  BE  DIMENSIONED  N  X  N  CSI 

X  MUST  BE  DIMENSIONED  N  X  K  CSI 

8  MUST  BE  DIMENSIONED  N  X  K  CSI 

N  IS  THE- NO.  OF  EQUATIONS  (ROhS  IN  A,X,B>  CSi' 

K  IS  THE  NO.  OF  SOLUTION  VECTORS  (COLS.  IN  XyB)  CSI 

CSI 

664  CELLS  OF  BLANK  COMMON  ARE  USED.  CSi 

CSi 

NOTE...  TO  CHANGE  DIMENSIONS  OF  ARRAYS  C  ANO  PIV,  ALSO  CSt 

CHANGE  VALUES  OF  NNAX  AND  NKHAX  IN  DATA  STATEMENT.  CSi 

CSi 

CSi 

DIMENSION  A(Ny  N) »  B(N.JC),  X(N, K)  CSI 

COMMON  ATPEt  I.  IFROM,  IPi,  IPIV,  ITO,  CSI 

1  J,  KP,  L,  NP»  NPi,  NPJ .  NPK,  RM  CSi 

COMMON  PIV (26) ,  C(24,26)  CSI 

DATA  NMAX ,  NKHAX/  24.  26/  CSI 

CSI 

GET  ARGUMENTS  N  AND  ».  CSI' 

CSli 

NP*N  CSI 

KP*K  CSI 

CSI 

ST  N  ANO  K  FOR  CORRECT  RANGE  CSi 

CSI 

IF (NP.LE.8.0R.NP.GT.NMAX)  GO  TO  190  CSI 

IF (KP.LE. O.OR. (NP+KP) .GT .NKHAX)  GO  TO  190  CSi 

CSI 

HOVE  ARRAYS  A(I.J)  ANO  B(I,J)  INTO  C(I,J)  CSI 

CSI 

00  10  J*i, NP  CSI 

00  10  1*1, NP  CSI 

10  C(I, J)*A(3,J>  CSI 

00  ?n  -J=i,K.P  CSi 

NPJ*  NP+J  CSi 

00  20  1=1, NP  CSI 

20  C( I, NPJ)*B(I , J)  CSI 

CSi 

SET  TO  PERFORM  N  ELIMINATION  SHEEPS  (1=1, N)  CSI 

CSI 

NPI  NP+1  CSi 

NPK*NP*KP  CSI 

00  120  1=1, NP  CSI 

IP1*I*1  CSI 

C  CSI 
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i 


i 
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TRACE 
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c 

SEARCH  FOR  NEXT  PIVOT  RON  II-TH  PIVOT 

IS  IN  COL*  I» 

CS1 

c 

CS1 

ATPEM. 

CS1 

00  6  0 

CS1 

IF  <ABS(C(Jf I) l-ATPE)  AO *30*30 

CS1 

30 

ATPE*ABSICIJ,U) 

CS1 

IPIV-J 

CS1 

AO 

CONTINUE 

CS1 

C 

CS1 

C 

OPERATE  ON  THE  PIVOT  RON 

CSI 

C 

CS1 

IF  I ATPEI  210,210,50 

CS1 

50 

CO  6  0  J*IP1,A»K 

CS1 

60 

PI  J)  =CC IPI V, J) /Cl IPIV, I) 

CS1 

C 

CS1 

C 

PERFORH  ELIMINATIONS  BEL ON  THE  DIAGONAL  ICOL.  II 

CS1 

C 

csi 

IF  RON* HP 

csi 

I70»NP 

CSI 

70 

IF  < IFRCH-IPIV)  00,100,01 

csil 

AO 

RH*-CI  IFROH,  I) 

CSij 

DO  90  J*IPl,NPK 

CSI 

90 

Cl  IT 0, J)*C (XFRON, J) ♦RH*PIVI J) 

csi! 

IT  0* ITO“l 

CSI 

10  0 

IF  RON* I  FROM- 1 

csi] 

iF  (IFSOM-I)  110,70,70 

CSI 

C 

csi! 

C 

PUT  THE  I-TH  PIVOT  ROM  IN  THE  VACATED 

RON  I 

csi' 

C 

csi’ 

110 

DO  120  J*IP1,KPK 

CSI, 

12  0 

CII,JI*PI/I’V 

CSI 

c 

CSI 

c 

NON  DO  THE  BA'.  SoLLTIOH 

CSI 

c 

CSI 

1=  HP 

CSI 

130 

IP  1*1 

CSI 

I-I-l 

CSI 

IF  IIJ  1  j  0 , ;  , 

CSll 

14  0 

00  1  50  J«**Piti  , 

CSI 

00  150  L*IFl ,NP  , 

CSI 

150 

C . I, Jl *CII ,J) -Cl I,L>  *C(L , J)  l 

CSI 

GO  TO  110 

CSI, 

C 

\ 

C51i 

C 

HOVE  THE  SOLUTION  TO  ARRAY  XII, J>; 

CSI 

C 

< 

CSI 

16  0 

00  170  J*1  ,KP  ' 

CSI 

NPJsNPtJ  4 

CSI 

00  170  1*1, NP 

CSI 

17  0 

XI I, J) =C(I ,NPJ) 

CSI 

18  0 

RETURN 

CSI 

C 

CSI 

190 

PRINT  1000,  NP,  KP 

CSI 

CALL  SYSTEM  (200, 1L  ) 

CSI 

STOP 

CSI 

710 

PRINT  1001 

CSI 

215 


TRACE 


CPC  4*00  FTP  V3.0-PJS1  <W»T«l 


M/tE 


I  ROUTINE 


I 


ntkcq 


CALL  STSTEN  U0S«1L  I _  C»1 

STOP  CSi 

1*00  FORMAT  (3H0N”I1?»9M  K>I12,3SH  ARE  INCORRECT  FOR  SUSROUT  'NC  NTXEOJ  CSi 

1001  FORMAT  (37H0CET (A)v0  IN  CALL  TO  SUBROUTINE  HTXEQI  CSI 

ENO  CSI 


t 

i 

t 

f 

! 

i 
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